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Prefacio 


La mayor parte de los programas de ordenadores, a pesar de notables 
diferencias, usan solamente un número limitado de operaciones con los 
datos. Algunas operaciones, particularmente en los programas para 
aplicación científica o de negocios, se usan en todos los programas y muy a 
menudo, por lo que se preparan como subrutinas. 


Si estas rutinas se pueden estandarizar, la tarea de escribir programas se 
puede reducir frecuentemente a escribir un menú de elecciones, el número de 
la línea de la subrutina y unas pocas instrucciones más para el usuario del 
programa. Así, el programador se preocupa solamente de la parte que 
necesita más habilidad y conocimiento para programar, que es la de 
desarrollar un plan efectivo y eficiente para el programa y el diagrama de 
flujo, realizándolo de tal modo que el usuario disfrute ejecutándolo y al 
mismo tiempo resulte tan libre de errores como sea posible. 


El problema de escribir una serie de subrutinas en BASIC es que este 
lenguaje no está fosilizado sino que al contrario cambia y se desarrolla. Se 
hace necesario entonces escribir estas subrutinas si ello es posible en un 
modo simple de Basic, utilizando aquellas instrucciones que se encuentran 
en los pequeños microordenadores, algunos de los cuales se diseñaron 
cuando el BASIC era una novedad aún para las máquinas pequeñas. 


Pero solamente esto no garantiza que estas subrutinas se ejecutarán sin 
alteraciones en todos los ordenadores, por lo que el propietario de la 
máquina deberá hacer cambios cuando sea necesario. Por ejemplo, la 
instrucción CLS se ha utilizado en las subrutinas como una instrucción para 
borrar la pantalla y llevar el cursor al origen, pero los usuarios de las 
máquinas 380 Z y 480 Z tendrán que reemplazarla por la instrucción 
equivalente PRINT CHRS$ (31). Del mismo modo, donde se haya utilizado 
el punto y coma para continuar imprimiendo en la misma línea (para las 
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máquinas que usan un tipo de BASIC MICROSOFT) los propietarios del 
ACORN ATOM deberán omitir el punto y coma, e insertar uno donde no lo 
haya en las subrutinas, después de una instrucción PRINT. Algunas máqui- 
nas no permiten las variables con doble letra como XX$ de modo que en 
aquellas subrutinas donde aparezcan tales variables se deberán reemplazar 
por variables de una letra únicamente. 


Una dificultad mayor es que algunas funciones no están estandarizadas; 
el archivo por casete es muy diferente de una máquina a otra, y las operacio- 
nes con discos varían tanto, que el archivo por medio de discos no se ha 
considerado en absoluto en esta obra. Las capacidades gráficas son tan 
diversas entre las distintas máquinas que solamente se han tratado aquí muy 
ligeramente, ya que las subrutinas están pensadas para los usuarios que se 
dedican a cálculos científicos, de negocios o educacionales, más bien que 
para los que se dedican a juegos. 


El método que he usado para resolver estas dificultades ha sido el de 
escribirlas en BASIC MICROSOFT, pero con un comentario completo 
sobre cómo opera dicha subrutina, de modo que el usuario pueda utilizar y 
adaptar la subrutina a su conveniencia. Esto inevitablemente reduce el 
número de subrutinas que se pueden describir aquí; pero aumenta la utilidad 
de cada una de ellas. 


A causa de la dificultad de reproducir programas, incluso subrutinas 
cortas con el 100% de precisión por otro método, las muestras de los 
programas que se dan aquí son partes de programas que ya han funcionado. 
Esto implica que se han utilizado en alguna máquina en particular (mi 
propia TRS-80 Modelo 1 Nivel 2). Los comentarios que se incluyen con cada 
rutina debieran sin embargo permitir al usuario adaptarla a otras máquinas. 
La mayor parte de las máquinas usan alguna forma del BASIC MICRO- 
SOFT de modo que se necesitará muy poca adaptación (o ninguna) en tales 
casos excepto donde el BASIC sea muy reducido y no tenga las instrucciones 
del 12K MICROSOFT. Un ejemplo típico es la instrucción PRINTO y 
donde esto suceda he ofrecido algunas alternativas. Para mayor claridad 
cada línea contiene una instrucción solamente, aunque se puede ahorrar 
mucho tiempo y espacio de memoria si las subrutinas se escriben utilizando 
líneas con instrucciones múltiples. He usado muy pocas líneas REM porque 
es más simple comentar las rutinas separadamente, pero las pocas que se 
usan resultan muy útiles. 


El libro se divide en capítulos y cada uno de ellos trata con un juego de 
tipos de subrutinas; una omisión notable es la de un capítulo que trate con 
filtros o trampas las secciones de los programas que evitan que el usuario 
utilice palabras o cantidades que producirían resultados ridículos o paradas 
por error. La razón para su omisión es que las rutinas de filtro se han 
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incluído en varias de las rutinas de entrada y no tendría significado separar 
los tópicos entre sí ya que el filtraje debe hacerse en el momento de introducir 
los datos. 


El modo de dividir el libro en capítulos se refleja en el sistema de 
numeración de las subrutinas. Cada rutina se identifica por cinco dígitos, el 
primero (1) es común para todas, el segundo es el número del capítulo, los 
últimos tres dígitos forman el número de la primera línea de la subrutina; así 
13070 es una rutina (la octava) en el capítulo 3. El número de la línea final de 
una subrutina puede superponerse con el número de la primera línea de la 
próxima. Ya que me parece improbable que se usen todas las subrutinas 
juntas, esto no se considera una dificultad. 


Aunque la mayor parte de las subrutinas se han hecho para cualquier 
máquina, se han incluído algunos ejemplos que pretenden resolver proble- 
mas específicos para una o dos máquinas. En realidad, un gran número de 
rutinas específicas de una máquina se refieren al TRS-80 y al Video Genie 
pero ya que también uso el RML 280Z y el ACORN ATOM no me he 
olvidado de estas máquinas (1). Pero he tratado de mantener tales rutinas 
específicas al mínimo. 


Todas las subrutinas se llaman con la instrucción GOSUB (número de 
línea) y se terminan con RETURN. Será necesario para el programa princi- 
pal que llama a la subrutina traspasarle valores, que son los que tienen que 
darse a las variables de la subrutina. Cada comentario determina los valores 
de la variable que se deben pasar de este modo. Se debe ser cuidadoso para 
evitar problemas entre nombres de variables usados en las subrutinas y los 
que usan en el programa principal, de aquí la importancia de una cuidadosa 
planificación del programa. Algunas subrutinas retornarán valores de 
variables al programa principal. 


Es útil recordar que llamar una subrutina significa usar espacio de 
memoria y tiempo, por lo que es eficiente sólo si se llama varias veces desde 
distintos lugares del programa principal. En algunos casos se puede preferir 
construir algunas subrutinas en el programa principal en vez de usarlas 
como subrutinas propiamente dichas. El uso de GOTO tan despreciado por 
los académicos es asimismo útil si se desea mantener el texto de la subrutina 
separado y utilizarlo solamente desde un lugar en el programa; si se hace así 
se debe reemplazar la sentencia RETURN por otra GOTO que lleve al lugar 
correcto de retorno. 


7 Siguiendo cada rutina hay una lista de nombres de variables que se 
dividen en tres grupos. El grupo con la etiqueta PASADAS consiste en 


(1) También se incluirán algunos comentarios relativos al IBM PC y sus BASICs de Microsoft. 
(N. del Ed.) 
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nombres de variables cuyos valores se pasan a la subrutina. Estos valores se 
habrán producido o utilizado en la rutina principal y los nombres de las 
variables de este grupo deben tener valores asignados antes de que se use la 
subrutina. El grupo con la etiqueta LOCAL consiste en nombres de varia- 
bles que tienen valores asignados y utilizados dentro de la subrutina y que 
pueden ignorarse por la rutina principal. El tercer grupo denominado 
DEVUELTAS consiste de variables cuyos valores son asignados y reasigna- 
dos dentro de la subrutina y que más tarde se usarán por la rutina principal. 


En general, las variables que se pasen a la subrutina pueden también 
devolverse, pero no es importante volver a nombrarlas. 


Los usuarios del microordenador BBC podrán clasificar las variables 
locales usando la instrucción LOCAL, de modo que los mismos nombres de 
las variables puedan utilizarse fuera de la subrutina sin que aparezca ningún 
conflicto por su uso dentro de la subrutina (2). 


Cualquier convenio en nombrar las variables no es probablemente útil 
más que a un pequeño grupo de usuarios, pero en este texto se utiliza el 
siguiente esquema: 


(D) J,K,L,M,Q. Contador de uso general, variables numéricas y de 
matrices. l se usa para matrices solamente para evitar confusión con 1. 
Cuando dichos números se ponen en forma de cadena se utiliza el mismo 
nombre de la variable (ej. K y K$) pero hay que comprobar que el ordenador 
lo permite. 

P,N. Usadas para los índices de elementos de vectores o matrices. 

W,X,Y,Z. Variables para elementos de tablas y para contadores. 

A,B,C . : 

Variables numéricas y de tiras de caracteres en la 
AS.BS,CS subrutina. 

Advertir que las máquinas que permiten el uso de funciones definidas 
(DEFFN) pueden emplear muchas de estas subrutinas en tal forma, y los 
usuarios de la máquina BBC tienen también la opción de convertir las 
subrutinas a procedimientos. 


Espero que el libro servirá como una referencia útil para los usuarios del 
BASIC, especialmente para los nuevos, y proporcionará algunas ideas que 
cada uno pueda desarrollar cuando las necesite. 


Los editores reconocen la ayuda de Clyde Williams y Darryl d'Sousa of 
the Tandy Corporation en la preparación de este libro. 


(2) Es decir que las variables locales de una subrutina no tienen nada que ver con las del resto 
del programa. (N. del Ed.) 
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Presentación visual 


Una función común a todos los programas para ordenadores es la 
representación visual de información. Este primer capítulo se dedica al tema 
de la presentación gráfica de dicha información en varias formas. 


Se podrían escribir muchísimas subrutinas para la representación grá- 
fica de la información, tantas que llenaríamos un libro mucho mayor que 
éste, por lo que solamente se ha incluído una selección en la que el lector 
puede hacer numerosas variaciones. 


PRINTO 


La instrucción PRINTO que se utiliza en varias versiones de BASIC 
MICROSOFT tiene la ventaja de permitir que la impresión arranque en 
cualquier punto de la pantalla, PRINTO viene seguida por un número que 
especifica la posición de la pantalla al asignar una numeración consecutiva a 
lo largo de cada línea. 


Como ocurre en el TRS-80 que tiene una línea de 64 caracteres una 
instrucción PRINTO que use números de 0 a 63 hará que se imprima en las 
posiciones a lo largo de la línea superior de la pantalla, de modo que 
PRINTO 31, “CENTRO” imprime la C en la mitad de la línea superior. Los 
caracteres de la siguiente línea se numeran secuencialmente empezando en 
64 y terminando en 127 de modo que PRINTO 95 “CENTRO” colocará la 
primera letra en el centro de la segunda línea. 
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El máximo número que puede seguir a PRINTO en la versión TRS-80 
es 1.023 y cuando la instrucción se usa para colocar el texto en la línea 
inferior, el texto debería continuarse por un punto y coma para evitar el 
avance de línea. 


Notar que la sintaxis requiere un número que siga inmediatamente al 
símbolo (Y con una coma para separar el final de la posición PRINTO del 
texto. 


Una alternativa elegante es la instrucción TAB (XY) que se utiliza en el 
ordenador BBC. En este sistema el origen del texto está en la esquina 
superior izquierda (0,0) X es el número de las posiciones de TAB a través de 
la pantalla (39 para la anchura de 40 caracteres de MODE 7) e Y es el número 
de líneas de arriba abajo en la pantalla (0 a 21 en MODE 7). 


Distintos modos de operaciones requerirán el uso de números distintos; 
TAB (x,y) es un método más simple de usar, porque es más fácil localizar 
una posición en términos de coordenadas XY que por una numeración 
correlativa dentro de las líneas de la pantalla. 


11000 Impresión de un título centrado 


El título es asignado a la variable A$ en el programa principal y la 
variable X debe indicar el máximo número de caracteres por línea para la 
pantalla del ordenador (un número distinto, normalmente 80 se necesitará 
para la salida de una impresora). 


El número de caracteres por línea es normalmente 40, aunque algunos 
ordenadores usan 32 y otros 64. La subrutina centrará el título en la parte 
superior de la pantalla, siempre que la longitud del título no exceda del 
número de caracteres por línea. 


El método utilizado es el clásico de contar el número de caracteres en el 
título por medio de la instrucción LEN (A$), sustraer este número del total 
de caracteres permitido por línea y luego dividir la diferencia por 2 para 
usarlo como el argumento o número de la función TAB para el primer 
carácter del título. Si hay que centrar un título largo se debería dividir en dos 
secciones y solicitar dos veces la subrutina. Por ejemplo: 


100 A$ = “ESTO ES UN INTENTO PARA ESCRIBIR” 
110 GOSUB 11000 

120 A$ “UN TITULO MUY LARGO” 

130 GOSUB 11000 


Se debe tener en cuenta que CLS significa, borrar la pantalla y llevar el 
cursor al punto de arranque (rincón superior izquierdo). En algunos orde- 
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nadores esto se logrará por medio de la instrucción PRINT CHR$(n). El 
RML-380Z utiliza n=31, el ACORN ATOM n=12, por lo que se deberá 
consultar la lista de caracteres de control para el ordenador propio si no está 
incluído en este grupo. El Apéndice A contiene una lista de los caracteres de 
control. 


11000 CLS: REM INSTRUCCION PARA BORRAR PANTALLA 


11001 PRINT TAB ((X-LEN (A$))/2)A$ 
11002 RETURN 


Variables 
PASADAS X número de caracteres por línea 
AS título 
LOCALES ninguna 


DEVUELTAS — ninguna 


11010 Título intermitente (versión 1) 


Las mismas variables A$ para el título y X para el número de caracteres 
por línea se pasan a esta rutina. El título se imprime centrado y la GOSUB 
11021 en la línea 11013 pide un breve intervalo que decide el ritmo o tasa de 
intermitencia. El valor 150 en la línea 11021 puede ser alterado para obtener 
una tasa de intermitencias adecuada, ya que la tasa depende del gusto 
personal tanto como del ritmo del reloj del ordenador y de la velocidad de 
ejecución del BASIC. El bucle que empieza en 11014, borra el título, en este 
caso usando un carácter de control para el retroceso del carro y borrado. 


El carácter numérico que se usa CHR$ (8) en la línea 11015 es el 
utilizado por una gran mayoría de ordenadores pero algunos, principal- 
mente los que no usan códigos ASCII, requerirán un número distinto en la 
instrucción CHR$. Después de borrar, se incrementa un contador Z, se 
solicita de nuevo el tiempo de retraso y se repite el proceso hasta que el 
contador alcanza el límite de 20 en la línea 11019. El número de intermiten- 
cias 20 puede naturalmente cambiarse. 
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11010 CLS: REM INSTRUCCION PARA BORRAR LA PANTALLA 
11011 Z=0 

11012 PRINT TAB ((X-LEN(AS)/2)AS; 

11013 GOSUB 11021 

11014 FOR LEN TO LEN(AS) 

11015 PRINT CHRS (8) 

11016 NEXT N 


11017 Z=Z +1 

11018 GOSUB 11021 

11019 IF Z<20 THEN GOTO 11012 
11020 RETURN 

11021 FOR Q = 1 TO 150 

11022 NEXT Q 

11023 RETURN 


Variables 
PASADAS X número de caracteres por línea 
AS título 
LOCALES N,Q,Z, contadores 


DEVUELTAS — ninguna 


11020 Título intermitente (versión 2) 


Esta es una rutina muy similar a la anterior pero evita el uso del bucle 
con el carácter de retroceso. La mayor parte de los ordenadores tienen 
caracteres de control que ejecutarán acciones tales como el borrado hasta el 
final de la línea y el transporte del cursor al comienzo de la línea. Los 
caracteres usados aquí son los correspondientes al TRS-80/Video Genie. 
CHRS$ (29) colocará el cursor al comienzo de la línea y CHR$ (30) borrará 
hasta el final de la línea. El uso de estos caracteres de control ahorra tiempo y 
esfuerzo de programación. La mayor parte de los ordenadores los poseen de 
una forma u otra; frecuentemente se accede a ellos a través del teclado 
usando una tecla CTRL. Nótese que unos pocos ordenadores requerirán 
una segunda instrucción para llevar el cursor al comienzo de la línea. 
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11020 CLS: REM INSTRUCCION PARA BORRAR LA PANTALLA 
11021 Z=0 

11022 PRINT TAB ((X-LEN(AS)/2))A$; 

11023 GOSUB 11029: REM RETARDO 

11024 PRINT CHR$ (29); CHRS (30); 

11025 GOSUB 11029 

11026 Z=Z+1 


11027 IF Z<20 THEN GOTO 11022 
11028 RETURN 

11029 FOR Q = 1 TO 150 

11030 NEXT Q 

11031 RETURN 


Variables 
PASADAS X número de caracteres por línea 
AS título 
LOCALES Q,Z, contadores 


DEVUELTAS — ninguna 


11030 Impresión en columnas 


El colocar los resultados en columnas puede necesitar una gran canti- 
dad de programación a menos que el ordenador permita el ajuste del tamaño 
del campo (ACORN ATOM, RML 380Z, BBC Micro computer) de modo 
que las comas separando las variables tabulen automáticamente en tantas 
columnas como se necesiten. Esta subrutina dividirá la anchura de la panta- 
lla en un cierto número de columnas usando el número asignado a la variable 
Y. La variable X igual que antes tendrá asignado el número de caracteres por 
línea y el vector A$ se usa para los títulos encabezamientos en la parte 
superior de las columnas, Q es el número de elementos que se imprimirán de 
este modo y el vector B es un conjunto de los números que se imprimirán en 
las columnas ya que esta forma de visualización se utiliza generalmente para 
números. 


Es innecesario añadir que el vector de tiras de caracteres puede también 
imprimirse en columnas. 
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El programador deberá asegurarse que la longitud de los elementos no 
exceda la anchura de la columna en este caso. 


LET Z= INT(X/(Y+1) 
FOR N= 1 TO Y 

PRINT TAB (N*Z) AS(N); 
NEXT N 

PRINT 

FOR J= 1 TO Q—1 STEP Y 


FOR N= 1 TO Y 

PRINT TAB (N*Z)B(J+N); 
NEXT N 

PRINT 

NEXT J 

RETURN 


Variables 


PASADAS Q número total de elementos a imprimir 
X número de caracteres por línea 
Y número de columnas 
B() tabla de los números que se van a imprimir 
AS () tabla de títulos para las columnas 
LOCALES Z,J,N contadores 
DEVUELTAS — ninguna 


11040 Evitar el desplazamiento 


En ocasiones se necesita mantener en la pantalla ciertos datos para 
referencia mientras que se cambian o elaboran otras informaciones o la 
pantalla debe mantenerse libre de perturbaciones. En cualquier caso es útil 
una rutina que evite el desplazamiento. Esta subrutina describe un método 
basado en el uso de caracteres de control; en el ejemplo se usa el código para 
mover el cursor hacia la parte superior de la pantalla. Para el TRS 80 este es 
CHR$ (27), CHR$ (29) es la instrucción que coloca al cursor al comienzo de 
la línea y CHR$ (30) la que borra hasta el final de la línea. Se deberán 
reemplazar los números de control por los adecuados cuando se utilicen 
otras máquinas. 
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PRINT “IMPRIMA ESTO AQUI” 

PRINT “Y ESO ALLI” 

GOSUB 11046: REM RETRASO 

PRINT (CHR$ (27); CHR$ (27), CHR$ (30); CHR$ (29); 


“Y LO SIGUIENTE AQUI” 
RETURN 

FOR Q= 1 TO 500 

NEXT Q 

RETURN 


Variables 
PASADAS ninguna 
LOCALES Q contador para el retraso 


DEVUELTAS — ninguna 


11050 Visualización enmarcada (1) 


Un título bien centrado puede parecer todavía mejor si está enmarcado 
o encerrado en una caja. Esta rutina utiliza un bucle que imprime una línea 
horizontal en la pantalla encima y debajo del título. Se usan admiraciones en 
los laterales para los lados del marco. No se ha intentado centrar el título; el 
método más fácil es definir A$ con las admiraciones y el título, así 


AS$ = “¡ESTO ES EL TITULO” 


y usar la subrutina 11000 para imprimirlo centrado. Las líneas superior e 
inferior del rectángulo o caja pueden empezarse con el mismo número en 
TAB y el tamaño del número del bucle se cambia para hacer el marco tan 
ancho como se desee. 


(1) Vale la pena examinar con atención el conjunto de caracteres de la máquina empleada, ya 
que suelen tener caracteres útiles para dibujar rectángulos. 


Así, por ejemplo, en el IBM - PC se tienen los caracteres: 

* Angulo superior izquierdo y derecho: 218, 191 

* Angulo inferior izquierdo y derecho: 192, 217 

* Intersección vertical - horizontal (es decir 4 posiciones de una T): 180, 193, 194, 195 
* Una especie de más ampliado: 197 

* Línea horizontal continua: 196 

* Línea vertical continua: 179 

(N. del Ed.) 
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Recuerde que si existe un carácter gráfico adecuado puede usarse para 
los lados del rectángulo y un carácter de barra horizontal para las líneas 
superior e inferior del rectángulo (capítulo V). A la variable X se le asigna el 
número de caracteres por línea. Haga la línea 11050 del programa de 
acuerdo con sus requisitos, o reemplácela por una instrucción REM y asigne 
AS en otro lugar. 


11050 Z = LEN (AS) 
11051 GOSUB 11056 
11052 PRINT 

11053 PRINT “!”, AS$,“!” 
11054 GOSUB 11056 


11055 RETURN 

11056 FOR J = (X-Z)/2 TO (X+Z)/2 
111057 PRINT *—”; 

11058 NEXT J 

11059 RETURN 


Variables 
PASADAS X número de caracteres por línea 
AS título que hay que imprimir 
LOCALES Z,J contadores 


DEVUELTAS — ninguna 


11060 Indicación intermitente 


En varios puntos en un programa, es útil tener una señal que recuerde 
que hay que ejecutar una operación determinada, tales como “oprimir 
cualquier tecla para proseguir” u “oprimir la tecla de puesta en marcha del 
grabador”. 


Entonces se necesita una pausa de modo que el operador pueda reac- 
cionar y un asterisco intermitente, por ejemplo, que indique al operador que 
la máquina espera una entrada. Esto está resuelto en algunas máquinas, pero 
en aquéllas que no tienen esta posibilidad, esta subrutina proporciona un 
método de obtener un asterisco intermitente o cualquier otro carácter o 
incluso el título. 


18 


PRESENTACION VISUAL 


El asterisco se imprime con el punto y coma para obtener la impresión 
en una línea y la línea 11061 utiliza la función INKEYS$ para devolver un 
valor si se oprime cualquier tecla. 


Los ordenadores que no disponen de la función INKEYS utilizan la 
GETS. Si no se oprime una tecla se produce una cierta demora o retraso, 
luego se borra el asterisco utilizando el carácter de espacio de retroceso que 
es ASCII 8 en la mayor parte de los ordenadores. Otro retraso idéntico es 
usado entonces antes de que la instrucción GOTO 11060 en la línea 11065 
haga que se repita el proceso. 


Esta es una subrutina muy útil porque la línea 11060 puede modificarse 
a PRINT AS y la línea 11063 cambiada a un bucle. 


FOR J= TO LEN (AS) 
PRINT CHRS (8) 
NEXT J 


para permitir que los títulos sean intermitentes lo mismo que los asteriscos. 
La tasa de intermitencia viene controlada por el número en el bucle que 
determina el retraso en la línea 11066. 


Se puede utilizar aquí una variable que permita diferencias en el ritmo 
de intermitencia, rápido para el asterisco y más lento para el título. 


PRINT “*»; 

IF INKEY$< > “” THEN RETURN 
GOSUB 11066: REM RETARDO 
PRINT CHRS (8); 

GOSUB 11066 


GOTO 11060 

FOR Q1=1TO 100 
NEXT Q 

RETURN 


Variables 
PASADAS ninguna 
LOCALES Q contador 


DEVUELTAS — ninguna 
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11070 Una pantalla a la vez... 


Algunos ordenadores permiten formar páginas en la pantalla lo que 
significa que cuando una colección de datos se imprime, la pantalla se 
llenará, pero la impresión se detendrá hasta que se oprima cualquier tecla. 
Cuando esta facilidad no existe, solamente una rutina con código de 
máquina puede utilizarse para formar “páginas”, pero la impresión de los 
datos de un programa puede fácilmente hacerse en “páginas” utilizando esta 
subrutina. 


La variable J se usa para el número de líneas por “página”, la subrutina 
supone que se van aimprimir un número de frases igual a Z, almacenadas en 
el vector A$; recordar el uso de la subrutina anterior para hacer intermitente 
un asterisco al final de cada cuadro. 


11070 FOR N= 1 TO Z 
11071 PRINT AS (N) 


11072 IF INT (N/J-1)=N/(J-1) THEN GOSUB 11060 
11073 NEXT N 
11074 RETURN 


Variables 


PASADAS J líneas por página 
Z número máximo de líneas a escribir 
AS () Vector de datos 

LOCALES N contador 

DEVUELTAS — ninguno 


11080 Contaje de datos introducidos 


Uso varios programas que leen los datos de los archivos de las casetes. 
Esta subrutina cuenta cada entrada de la casete de modo que se puede ver 
mirando la pantalla, hasta donde se ha llegado en ese momento. Disminuye 
por tanto la ignorancia de la situación en lo que a archivos de casete se 
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refiere, y es particularmente útil para máquinas tales como la TRS80 y Video 
Genie que no dan indicación, salvo la presencia de un asterisco, de que se 
están leyendo los archivos. 


11080 CLS 
11081 FORN N= 1 TO X 
11082 GOSUB 11086: REM CARGA DE LA CASETE 


11083 PRINT; *”; 
11084 NEXT N 
11085 RETURN 


Variables 
PASADAS X número de ficheros a carga 
LOCALES N contador 


DEVUELTAS — ninguno 


11090 Clasificación de cuentas 


Esta es una técnica que no es fácilmente transferida del TRS 80 a otros 
ordenadores y se ha dejado en su forma original comprimida, en vez de 
volver a escribirla en líneas con una instrucción en cada una. 


Las líneas 10 a 30 indican el tipo de datos que se necesitan para preparar 
la subrutina. 


El principio en que se basa es que los programas de cuentas usan dos 
columnas, una para las entradas y otra para las salidas, pero no existen 
necesariamente datos para cada uno de las partidas de entrada y salida. 


Esta subrutina consigue disponer ambas columnas nítidamente cuando 
no se necesitan todos los elementos. 


Los espacios no se imprimen. La técnica se basa en el uso de la 
instrucción PRINTO que no existe en todos los ordenadores —incluso 
algunas versiones de RML-380Z BASIC omiten esta instrucción—. 
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La nitidez que produce la subrutina y la economía de espacio de la 
pantalla compensa el tiempo que gaste en escribirla. 


Obsérvese el uso del avance de renglón en 11093 y la superflua instruc- 
ción PRINT en 11094 que permite espaciar antes de subrayar. 


CLEAR 500 
N3=5;A1(1)=23:A1(3)=24:A$(1)=“VENTAS” 

AS(3) “OTROS”: A2(2) = 45 

A2 (4) = 33: B$(2) = “LICOR”:B$(4) = “CAJA MENOR” 
CLS: GOSUB 11090 

PRINT STRINGS (64, “—”): END 

PRINT TAB (10) “INGRESOS”; TAB (35) 

“SALIDAS”: PRINT 

GOSUB 11091: RETURN 

K1=0: J=128: FOR N=1 TO b N3:IF Al(N) <>0 THEN 
PRINTO 
J,AS(N);TAB(IDALN);:J=3464:K1=K1+1:NEXT N: 
ELSE NEXT N 

K2=0:J=160: FOR N=1 TO b N3: IF AAN) < >0 

THEN PRINTO J,B$ (N); 

TAB (50) A2(N); : J=J+64:K2=K2+1:NEXT N : ELSE 
NEXT N 

IF K1 > K2 THEN J=64*(K1+1) ELSE J=64*(K2+1) 
PRINTO J, “>”: RETURN 


Variables 


PASADAS N 3 número máximo de elementos en cada columna 
A1() vector de números para la columna 1 
A2() vector de números para la columna 2 
AS$() vector de nombres columna 1 
BS() vector de nombres columna 2 
LOCALES J,K,N contadores 
DEVUELTAS — ninguna 


11100 Título desplazable (versión 1) 


Un título que se desplaza consigue frecuentemente más atención que 
uno estático, y la subrutina para lograr esto es bastante simple. Como de cos- 
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tumbre se asigna a AS el título y a X el número máximo de caracteres por 
línea. El resultado de la rutina es mover el título hacia dentro desde la parte 
derecha de la pantalla con una tasa controlada por el retraso especificado en 
la línea 11104. La rutina del retraso no está especificada aquí. 


Observar el uso de la instrucción PRINTO que utiliza 512 como el 
número que representa la posición final en una línea. Estos números se 
deberán cambiar para adecuarlos a la configuración del ordenador que se 
utilice. 


Z=LEN (AS) 

Y=1 

FOR N=1 TO X 

PRINTO (512-N),MIDS (AS, 1,Y); “> 
GOSUB*: REM RETARDO 


IF Y<Z THEN GOTO 11108 
NEXT N 

RETURN 

Y=Y+1 

GOTO 11106 


Variables 
PASADAS X número máximo de caracteres por línea 
AS título 
LOCALES Z,Y,N contadores 


DEVUELTAS — ninguna 


11110 Título desplazable (versión 2) 


En los ordenadores en los que su BASIC no tiene la instrucción 
PRINTO, esta versión del título movible usa únicamente la instrucción 
TAB que es aceptable pero menos satisfactoria. Advertir que 11113 utiliza el 
número 62, esto es X-2, donde X es el número de caracteres por línea y si el 
ordenador lo permite TAB (X-2-N) puede usarse en esta línea con un valor 
para X alimentado a la subrutina. 


La línea 11110 puede modificarse de acuerdo con sus requirimientos. 
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Z=LEN (AS) 

Y=1 

FOR N=1 TO X 

PRINT TAB (62-N)MIDS (AS, 1,Y); “> 
GOSUB*: REM RETARDO 


IF Y<Z THEN GOTO 11118 
PRINT CHRS (27);:NEXT N 
RETURN 

Y=Y+1 

GOTO 11116 


Variables 
PASADAS X caracteres por línea 
AS título 
LOCALES Z,Y,N contadores 


DEVUELTAS — ninguna 
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Técnicas de entrada 


Si la mitad de nuestro tiempo usando ordenadores se gasta o consume 
viendo las pantallas, la mayor parte de la otra mitad se debe emplear usando 
el teclado para la entrada de información. 


De nuevo, unas cuantas subrutinas pueden facilitar el trabajo, y en este 
capítulo se describen un número de métodos de entrada, que van desde los 
muy simples a los relativamente complicados. 


La instrucción INPUT de la que disponen la mayoría de los ordenado- 
res detiene el programa hasta que se hayan oprimido las teclas apropiadas 
seguido por la instrucción RETURN (o su equivalente) y una interrogación 
aparece en la pantalla hasta que esto se haya realizado. La mayoría de los 
ordenadores permitirán una entrada con cualquier tecla cuando se usa la 
instrucción INPUT X$, pero aceptarán sólo números si se usa INPUT X. 
Además, la mayor parte de los ordenadores siguen la entrada de datos con 
un desplazamiento de línea y retorno de carro. 


INKEY$ 


Esta es una instrucción utilizada en varias versiones del BASIC 
MICROSOFT y otros para solicitar una entrada de una línea sin necesidad 
de usar la tecla de RETURN. La sintaxis varía algo, pero el método normal 
es el de asignar una variable al resultado de la operación como en: 


1000 A$ = INKEYS$ 
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Tal como está escrito se asignaría un valor solamente si se oprimiera 
una tecla en el momento de ejecución de la línea, de modo que INKEY$ se 
escribe generalmente en un bucle tal como 


1000 A$ = INKEYS$: IF AS “” THEN 1000 


que mantiene la línea realizando un bucle sobre si misma hasta que se detecta 
que una tecla ha sido oprimida. 


El micro BBC usa la instrucción de un modo distinto con anillo o bucle 
temporizado incorporado de modo que: 


1000 A$ = INKEYS$ (100) 


recirculará durante un segundo y luego continuará, tanto si se oprime una 
tecla o no. Oprimiendo la tecla dentro del tiempo del bucle transfiere el 
carácter a A$, pero si se agota el tiempo sin oprimir ninguna tecla, se le 
asigna a A$ el valor “—-1”. El número entre paréntesis en la línea es el tiempo 
de retraso en centisegundos. Una instrucción INKEY en la máquina BBC, 
transfiere el carácter en el código ASCII de la tecla que se oprimió, si no 
pea | » 

La alternativa al uso convencional de INKEYS$ es GETS. Esta se usa en 
varias versiones de MICROSOFT y por la máquina BBC, como el método 
principal de obtener un carácter del teclado con una sintaxis como: 


1000 A$ = GETS 
0) 
1000 IF GETS = “A” THEN... 


El microordenador BBC también permite el uso de GET, transfiriendo 
el código ASCII de la tecla oprimida. Otros ordenadores requieren que 
GETS se use en un bucle como con INKEYS$ y otros (como el BBC) tienen un 
bucle incorporado de modo que con GETS habrá un retraso indefinido hasta 
que se oprima una tecla. 


12000 ¿Cuántos? 


Cuando se necesita introducir un cierto número de elementos o items, 
su número puede tener que especificarse si un bucle del tipo FOR ... NEXT 
se usa para leer los elementos e introducirlos. Esta subrutina proporciona un 
método de introducción de dicho número de elementos. La interrogación 
impresa por el uso de INPUT lo hará en la misma línea que la pregunta. Es 
más claro que el método usual de dos líneas. Con el ATOM deberán omitir el 
punto y coma. 
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12000 PRINT “CUANTOS ELEMENTOS”; 


12001 INPUT X 
12002 RETURN: REM AL PROGRAMA BASIC 


Variables 
PASADAS ninguna 
LOCALES ninguna 


DEVUELTAS X número de items 


12010 Entrada en la misma línea 


El uso tradicional de INPUT es el de tener una entrada por línea a causa 
del avance de línea y del retorno del carro que sigue a INPUT debido al uso 
de RETURN. Esta subrutina permite que dos instrucciones separadas de 
INPUT estén en la misma línea de la pantalla usando el código de Órdenes 
para subir el cursor que es 27 para el TRS 80 y 145 para PET. Esta orden 
tiene que usarse con TAB para evitar que se borre la entrada anterior de 
modo que puede ser necesario alterar el número en TAB en 12012 si la 
primera entrada es una cadena larga en vez de un número. 


12010 PRINT “TECLEE UN NUMERO, POR FAVOR”; 
12011 INPUT X 
12012 PRINT TAB (20) CHR$ (27);: REM SUBIR UNA LINEA 


12013 PRINT “NOMBRE, POR FAVOR”; 
12014 INPUT X$ 
12015 RETURN 


Variables 
PASADAS ninguna 
LOCALES ninguna 
DEVUELTAS — X número 


X$ nombre 
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12020 Entrada tabulada-versión simple 


Una entrada tabulada con cada item o elemento introducido debajo de 
la cabecera apropiada es mucho más clara que el INPUT convencional con 
un item en cada línea. 


Esta subrutina descrita con un trozo de un programa típico que la llama 
en las líneas 10-40, permitirá la colocación de un cierto número de elementos 
debajo del encabezamiento apropiado. A la variable X se le asigna el 
máximo número de caracteres por línea, el ejemplo utiliza 64 que es el de las 
TRS-80/Video Genie. Cuando se ejecuta cada entrada, una variable N se 
encarga de tabular en la posición correcta a la línea 12032 y el carácter para 
desplazar hacia arriba el cursor (27 en este ejemplo) devuelve la siguiente 
entrada a la misma línea. 


W = 64:PRINT “ELEMENTOS A LISTAR” 

GOSUB 12020 

PRINT “LOS VALORES SON” X$, “ ”, Y1; * ”;, Y2 
END 

PRINT “NUMERO”; TAB(X/4) “ELEMENTO”; TAB 
(X/2) “COSTE”; TAB (3*X/4) “PRECIO” 

INPUT Y 

N=1 

GOSUB 12032:REM ESPACIO LATERALMENTE Y HACIA 
ARRIBA 

INPUT AS$ 

N=2 

GOSUB 12032 

INPUT Y1 

N=3 

GOSUB 12032 

INPUT Y2 

RETURN 

PRINT TAB (N* X/4-2)CHR$(27); 

RETURN 


Variables 
PASADAS X caracteres por línea 
LOCALES N contador 


DEVUELTAS Y número 
A$ nombre de los elementos 
Y1 Coste 
Y2 precio 
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12030 Entrada Tabulada-versión con bucle 


La subrutina de entrada tabulada puede acortarse usando un bucle 
como se indica en esta versión, y este método es preferible si los intervalos de 
tabulación son regulares. Para una tabulación irregular se puede usar la 
rutina anterior pasando N directamente como el número de tabulaciones. 


12030 PRINT “NUMERO”; TAB (X/4) “ELEMENTO”; TAB 
(X/2) “COSTE”; TAB (3*X/4) “PRECIO” 

12031 FOR N= 1T04 

12032 INPUT AS(N) 


12033 GOSUB 12036 
12034 NEXT N 
12035 RETURN 
12036 PRINT TAB (N*X/4-2)CHRS$ (27); 
12037 RETURN 


Variables 
PASADAS X caracteres por línea 
LOCALES N contador 


DEVUELTAS — AS () vector de entradas 


12040 Comprobación de números 


Muchos programas requieren que se compruebe el tamaño de un 
número, por ejemplo la respuesta a una elección de menú. Esta subrutina es 
un ejemplo simple de tal validación, llamada también menos elegantemente 
una “trampa”. La entrada es una variable de caracteres para así evitar una 
parada en el caso de que se oprima por error una tecla que no sea numérica. 
El valor de la variable se extrae para obtener el número si se oprimió una 
tecla numérica y la línea 12043 entonces comprueba el tamaño del número 
—ponga aquí sus propios valores—. Advertir que una entrada de 0 no se 
acepta porque una tecla no numérica puede dar 0 como el valor de la serie. 
La línea 12044 es importante; el usuario debe ser informado de por qué no se 
acepta una entrada. 
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12040 PRINT “TECLEE UN NUMERO POR FAVOR”; 
12041 INPUT XS 
12042 X= VAL (X$) 


12043 IF X>0 AND X<10 THEN RETURN 

12044 PRINT CHR$ (27); TAB (5) “ERROR... EL NUMERO DEBE SER 
DE1A9” 

12045 GOTO 12040 


Variables 
PASADAS ninguna 
LOCALES X número que se comprueba 


DEVUELTAS X$ número de entrada en forma de tira 


12050 Oprima cualquier tecla ... (1) 


Esta rutina usa INKEY*$ en una forma que evita problemas de obtener 
información inservible, ya que la variable K$ no es asignada hasta que se ha 
oprimido una tecla. Algunos ordenadores, entre ellos el TRS-80/Video 
Genie no aceptarán este uso de INKEYS$. 


12050 IF INKEYS$ = “”THEN 12050 
12051 K$ = INKEYS$ 
12052 RETURN 


12053 REM EVITA PROBLEMAS DE LECTURA DE DATOS 
ERRONEOS PERO NO TODOS LOS ORDENADORES 
ASIGNARAN UN VALOR A K$ 


Variables 
PASADAS ninguna 
LOCALES ninguna 


DEVUELTAS — Kg$ valor del carácter de la tecla oprimida 
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12060 Oprima cualquier tecla ... (2) 


Esta es la versión de la subrutina anterior para los micros TRS- 
80/Video Genie. Tiene la desventaja de que se acumula información inser- 
vible, pero esto puede evitarse usando la instrucción 


ZZ = FRE (AS) 


dentro del bucle. La instrucción FRE (A$) automáticamente provoca una 
acción de borrado de información inútil, evitando así su acumulación. A$ es 
una variable ficticia, no necesita que se le asignen valores y la variable ZZ. 
será el número de bytes de memoria libres que no se necesitan. 


12060 K$ = INKEY$ 
12061 IF K$ = “” THEN 12060 


12062 RETURN 
12063 REM ESTA VERSION SE PRECISA EN UN TRS-80 SI SE 
TIENE QUE DEVOLVER UN VALOR DE K$ 


Variables 
PASADAS ninguna 
LOCALES ninguna 


DEVUELTAS — K$ valor del carácter de la tecla oprimida 


12070 El interludio SI ... NO 


El uso continuo de la tecla RETURN necesario cuando se usa INPUT 
puede ser molesto, aunque puede dar tiempo para pensar mejor lo que se 
hace. 


Esta subrutina permite que se impriman las palabras YES y NO sin el 
uso de RETURN y pasará un código numérico, 2 para NO y 1 para YES, de 
vuelta a la rutina a la variable Z; según qué palabra se haya tecleado. Una 
rutina con trampa (filtro) comprueba o evita errores de impresión en la línea 
12080. Las líneas 12071-12072 se pueden reemplazar por una llamada a la 
rutina con asterisco intermitente si se quiere y el mensaje ERROR puede 
también hacerse intermitente. Esta rutina es útil porque puede adaptarse a 


31 


TECNICAS DE ENTRADA 


muchas respuestas distintas (HELP por ejemplo, en el caso de que se 
necesiten intrucciones) y no es necesario esperar a que se imprima toda la 
palabra. 


As="“” 

K$ = INKEYS 

IF K$ = “> THEN 12071 

PRINT KS$; 

AS = AS +KS 

X = LEN (AS) 

IF X<2 THEN 12071 

IF X = 2 AND AS = “NO” THEN 12082 
IF X= 2 AND AS = “SI” THEN 12084 
IF X= 2 THEN 12071 

PRINT “ERROR: CONTESTE SI O NO” 
GOTO 12070 

72 

GOTO 12085 

==) 

PRINT 

RETURN 


Variables 
PASADAS ninguna 
LOCALES X contador de la longitud de la palabra 


K$ carácter de la tecla 
AS palabra obtenida de K$ 
DEVUELTAS — Z código numérico (NO = 2, SI = 1 


12080 Trampa (filtro) para limitar la entrada (1) 


Cuando hay que limitar la longitud de una tira de caracteres en la 
entrada a las máquinas, en las que la longitud máxima de una tira de 
caracteres en una matriz o vector está limitada, por ejemplo, puede ser útil 
una subrutina de este tipo. 


En el ejemplo se comprueba que la longitud de la tira de caracteres esté 
comprendida entre $ y 10 caracteres en la línea 12082, y se imprimirá un 
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mensaje de error para las tiras de caracteres fuera de este margen. En muchos 
casos sólo se necesita rechazar las tiras de caracteres excesivamente largas. 


AS = “POR FAVOR USE DE 5 A 10 LETRAS” 
PRINT “TECLEE EL NOMBRE”; AS 

GOSUB 12080 

PRINT BS 

END 

INPUT BS 

X = LEN (B$) 


IF X<= 10 AND X => 5 THEN RETURN 

IF X => 10 THEN 12086 

PRINT “NOMBRE DEMASIADO CORTO-”; A$ 
GOTO 12080 

“NOMBRE DEMASIADO LARGO-”;, A$ 

GOTO 12080 


Variables 
PASADAS A$ mensaje de ayuda 
LOCALES X longitud 


DEVUELTAS B$ nombre aceptado 


12090 Trampa para limitar la entrada (2) 


Sino se necesitan trampas para una determinada longitud, esta modifi- 
cación de la rutina anterior permite que el número que indica la longitud se 
transfiera a la subrutina cada vez que se solicita bajo la forma de dos 
variables N1 y N2. 


INPUT BS 

X = LEN (B$) 

IF X< = N1 AND X => N2 THEN RETURN 
IF X => NI THEN 12096 


PRINT “NOMBRE DEMASIADO CORTO-”; A$ 
GOTO 12090 
PRINT “NOMBRE DEMASIADO LARGO-”;, A$ 
GOTO 12090 
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Variables 
PASADAS N 1, N2, límites de la longitud. 
A$ Mensaje de ayuda 
LOCALES X longitud de la cadena 


DEVUELTAS — Bf salida 


12100 Comprobación de números 


Cuando la entrada de un cero, un número negativo o un número 
excesivamente grande pudiera causar problemas (tal como el error de dividir 
por cero) una subrutina con trampa de esta clase es útil —se advierte que es 
válida solamente para números—, si se oprime una tecla de letras, el sistema 
operativo de la máquina rechazará la selección y la devolverá al estado de 
READY (PREPARADA). Si se quiere evitar esto sobre todo cuando los 
que usan la máquina no están bien entrenados, entonces se debería usar una 
tira de entrada seguida por la instrucción VAL (tira) tal como se describe en 
12040 (Comprobación de Números). 


INPUT X 

IF X< = 0 THEN 12104 
IF X> 9 = THEN 12106 
RETURN 


PRINT “NO SE PERMITE 0 O NUMEROS NEGATIVOS 
GOTO 12100 

PRINT “NUMERO DEBE SER MENOR QUE 10” 
GOTO 12100 


Variables 
PASADAS ninguna 
LOCALES ninguna 


DEVUELTAS X sólo números 


12110 Bloque de entradas y comprobación visual 


No es siempre posible decidir lo que es inaceptable como entrada, de 
modo que una manera útil de hacerlo es ofrecer al operador a intervalos una 
lista de entradas para que las compruebe. 


34 


TECNICAS DE ENTRADA 


Esta subrutina utiliza un bucle en la línea 12110 que acepta entradas en 
la forma de un vector de caracteres. 


El número total de elementos se debe transferir a la subrutina como un 
valor para la variable Z. La línea 12113 interrumpe el procedimiento de 
entrada después de cada diez, de modo que se pueda hacer la comprobación 
de validez. 


En la línea 12117 se borra la pantalla (habrá que usar el código indivi- 
dual para el borrado de la pantalla) y entonces se imprime un bloque de diez 
entradas acompañado de un número de referencia para cada elemento. 


La rutina que empieza en 12113 da entonces entonces al operador la 
oportunidad de cambiar las entradas tantas veces como sea necesario para 
eliminar errores. Todo el bloque de entradas aparece en pantalla después de 
cada corrección, y la liberación se hace imprimiendo el 0 en lugar de un 
número. 


FORN=1TOZ 
PRINT “ITEM NO.” N; 

INPUT AS (N) 

IF INT (N/10) = N/10 THEN GOSUB 12117 
NEXT N 

GOSUB 12117 

RETURN 

CLS 

PRINT “ESTE BLOQUE DE ENTRADAS ES-” 
FOR J = (N-9) TO N 

PRINT TAB (5)J¿CHRS(8)".”¡AS(J) 

NEXT J 

PRINT 

PRINT “TECLEE: NUMERO A MODIFICAR O 0 PARA SALIR; 
INPUT Y 

IF Y = 0 THEN 12129 

PRINT “ITEM”; Y; “DEBE SER”; 

INPUT AS (Y) 

GOTO 12117 

CLS 

RETURN 


Variables 
PASADAS Z número de elementos 
LOCALES N, J, contadores 


Y indicador SI/NO 
DEVUELTAS A$ vector de cadenas de entrada 
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12130 Rellenar hasta obtener un tamaño previsto, 
añadiendo datos por el lado izquierdo 


Para muchas operaciones, especialmente cuando se usan rutinas que 
cortan las tiras, todo resulta más simple si cada tira es de la misma longitud. 
Esta rutina cuenta el número de caracteres de cada tira entrante y sies menor 
que la longitud considerada la rellenará por el lado izquierdo hasta obtener 
un total de Y caracteres usando el carácter blanco de ASCII 128. 


La variable Y se debe transferir desde el programa principal, o insertada 
como un número en la subrutina. 


Esta subrutina debería estar precedida por una rutina de comprobación 
de la longitud de la cadena tal como la 12090. 


Algunos ordenadores no usan el código estándar ASCII (PET, 
SHARP MZ 80 y el AZ 81) de modo que no se puede usar el número 128. El 
carácter blanco que se usa debería ser uno que no esté en el teclado, o sea, no 
es el espacio en blanco que se produce por la barra de espaciamiento (32 en el 
código ASCID. 


12130 INPUT AS 
12131 X= LEN (A$) 
12132 FOR N=1TO(Y-X) 


12133 AS= CHRS$ (128) + AS 
12134 NEXT N 
12135 RETURN 


Variables 
PASADAS Y máximo tamaño del relleno 
AS tira que se rellena 
LOCALES X longitud de la tira 


DEVUELTAS Af salida rellenada 


12140 Rellenar hasta obtener un tamaño previsto 
por el lado derecho y cortar 


Esta es una extensión de la rutina anterior que acumula o empaqueta 
una tira a una longitud determinada por la variable Y utilizando espacios en 
blancos por el lado derecho. Luego se reduce el tamaño de la tira acumulada 
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en la línea 12145, en este caso a seis caracteres, pero obviamente esto puede 
cambiarse. No existe aquí una subrutina para limitar la longitud de la tira de 
entrada (A$) porque todas las tiras terminarán con el mismo tamaño. 


La mayor parte de las máquinas trabajarán bien con la línea 12145 que 
extrae los primeros seis caracteres de A$ pero el ACORN ATOM yel ZX 81 
necesitarán un juego diferente de instrucciones (pág. 42). 


12140 INPUT AS 
12141 X= LEN (AS) 
12142 FOR N=1TO (Y-X) 


12143 AS= AS + CHR$ (128) 
12144 NEXT N 

12145 AS= LEFTS (AS,6) 
12146 RETURN 


Variables 
PASADAS Y máximo tamaño del relleno 
A$ tira a rellenar 
LOCALES X longitud de la tira 
N contador 


DEVUELTAS — Af entrada cortada y rellenada a 6 caracteres 


12150 Entrada múltiple con comas 


La mayor parte de los ordenadores permiten la entrada de más de un 
valor variable en cada instrucción usando una coma como separador. La 
coma no se almacena sin embargo y si se insertan comas entre tiras en la 
memoria, algunas operaciones, principalmente el archivo en casetes, no se 
pueden hacer. Esta rutina consiste en dos partes. Las líneas entre 12150 y 
12152 concatenarán tiras que han entrado separadas usando el espacio en 
blanco ASCII 128 como un separador entre tiras. La longitud de cada tira 
tendrá que comprobarse por una subrutina separada (no se da aquí) para 
asegurarse que la tira concatenada o unida en la línea 1215 no es demasiado 
grande para que la maneje el ordenador. La mayor parte de las máquinas 
manejan tiras de hasta 248 caracteres y otras hasta 255. 
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La segunda parte de la subrutina trata de la separación y de la inserción 
dela coma. La cadena concatenada se separa examinando cada carácter a la 
vez e imprimiéndolo si no es el ASCII 128. 


Cuando aparece un código 128 la rutina 12159 imprime una coma en su 
lugar de modo que el aspecto final de la cadena es el mismo que tenía en la 
entrada con las comas. Se puede hacer una pequeña modificación en la 
rutina para recobrar la variable A$ y las variables numéricas B y C de la tira 
concatenada. 


INPUT AS, B, C 

C$ = AS+CHRS (128)+STRS(B)+CHR$(128)+STRS(C) 
RETURN 

FOR N= 1 TO LEN (C$) 

D$ = MIDS (CS,N,1) 

IF D$ = CHRS (128) THEN 12159 


PRINT DS; 
NEXT N 
RETURN 
DS = EE 
GOTO 12156 


Variables 
Primera parte LOCALES ninguna 
DEVUELTAS — C5$concatenadacon espacios en blanco 
PASADAS C$ como arriba 
Segunda parte LOCALES DS caracteres separados de la tira 


DEVUELTAS ninguna 


12160 Agrupamiento de tiras 


Las tiras que forman un vector se pueden procesar más eficientemente si 
se pueden agrupar en tiras largas de la máxima longitud permitida. Esto es 
especialmente cierto en los sistemas con archivo de casetes del TRS 
80/Video Genie, porque un archivo de datos de casete viene siempre prece- 
dido por 256 bytes de ceros independientemente de la longitud de los datos 
del archivo, con lo que se hace muy tediosa la grabación de un vector de tiras. 
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Incluso para máquinas con sistemas de archivo de datos más eficiente la 
rutina de acumulación puede ser útil pues una única tira larga se procesa 
mejor que un vector. 


La rutina permite que cuatro juegos de cadenas agrupadas formen el 
nuevo vector A$. En la línea 12164 se introducen los elementos de la cadena, 
y en la línea 12167 se acumulan usando ASCII 128 como un separador. A 
medida que cada tira se llena, se crea una nueva y agrupada Af, hasta que no 
queda más espacio disponible. Esta condición está indicada en la línea 
12173: 


La variable cuyo valor tiene que pasarse a la subrutina es K, la máxima 
longitud de tira permitida. El valor elegido para K debería ser menor que el 
máximo absoluto de 255, porque algunas rutinas de ordenador no manejan 
tiras de longitud máxima. Un ejemplo es el archivo de casetes del TRS 80 que 
acepta 254 caracteres para grabar pero solamente 248 para lectura. 


12160 FOR N = TO 4: REM SE EMPLEAN 4 GRUPOS 

12161 AS(N)=“> 

12162 NEXT N 

12163 J=1 

12164 FOR N= 1 TO 100 

12165 PRINT “ELEMENTO”; N; 

12166 INPUT B$ (N): REM DEBE DIMENSIONARSE 

12167 AS (J) = BS (N) + CHRS(128) 

12168 IF LÉN (AS(J) = K THEN 12171: REM K ES LA LONGITUD 
MAXIMA DE LA TIRA EMPAQUETADA 

12169 NEXT N 

12170 RETURN 

12171 J=J+1 

12172 IF J<=4 THEN 12169 

12173 PRINT “AGOTADO EL ESPACIO. DETENGASE” 

12174 IF INKEYS = “” THEN 12174 

12175 GOTO 12170 


Variables 
PASADAS K máxima longitud de tira permitida 
LOCALES J,N, contadores 


BS tira de entrada 
DEVUELTAS A$ tiras concatenadas 
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12170 Desagrupamiento de tiras 


Esta subrutina invierte la acción de la anterior convirtiendo las tiras 
agrupadas en la distribución original de tiras. La línea 12170 utiliza un bucle 
FOR ... NEXT con 100 elementos; en la práctica este valor sería transferido 
desde el programa principal o leído desde la cinta como un elemento que 
precede a las tiras. 


El bucle en 12174 también supone un número pasado a la subrutina, en 
este caso 4 (el número total de cadenas acumuladas) pero este número 
también sería normalmente pasado desde la rutina principal o desde una 
lectura de la cinta. La subrutina opera cambiando los caracteres uno cada 
vez en una distribución de tiras, empezando con un nuevo número N como 
subíndice cada vez que aparece el carácter ASCII 128. El carácter variable 
del contador K se utiliza para asegurarse que no se leerán caracteres más allá 
del final de una tira haciendo que se reporte un error y un retorno a READY. 


FOR N= 1 TO 100 

BS (N)=“> 

NEXT N 

N=1 

FOR J=1TO4 

K=1 

C$ = MIDS (AS(J),P, 1) 

IF C$ = CHR$ (128) THEN 12184 
BS (N) = BS (N)+C$ 

K=K+1 

IF K => LEN ((AS(J) THEN 12182 
GOTO 12176 

NEXT J 

RETURN 

N=N+1 

GOTO 12179 


Variables 
PASADAS AS$ tira concatenada 
LOCALES N,J,K, contadores 


DEVUELTAS — Bf () vector de tiras 
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3 
Búsqueda y clasificación 


Búsqueda y clasificación, además de ser el título de uno de los más 
fascinantes libros sobre teoría de computación, es un título que trata con 
algunas de las subrutinas, más interesantes, más frustradoras y más útiles. 


Revisando programas que he escrito, hay muy pocos que no tengan 
algunas de las rutinas que se describen en este capítulo para distintos 
propósitos. 


Todas las operaciones en este capítulo suponen que existe un vector o 
matriz y que el nombre de su variable se transfiere de la rutina principal 
junto con el número de elementos en él. Algunas operaciones se suponen que 
son realizadas en tiras. 


La adaptación a vectores de números es simple, pero por muchas 
razones resulta a menudo mejor usar vectores de cadenas no siendo la menor 
la facilidad con la que pueden rellenarse hasta un tamaño estándar, acumu- 
lados y recortados utilizando instrucciones como LEFT$ MIDS$ y RIGHTS. 
Los valores numéricos se pueden convertir en tiras usando la función STR$ 
que existe en casi todos los ordenadores y extraídos de las tiras usando VAL 
(nombre de la tira), de modo que no hay ninguna desventaja en utilizar 
vectores de tiras exclusivamente. 


El micro BBC tiene una nueva instrucción muy útil, EVAL, que eva- 
luará el contenido de una tira como si consistiera en números e 
instrucciones. 


Esto hace posible las operaciones aritméticas con tiras sin tener que 
usar una serie de operaciones VAL en diferentes ocasiones. 


Esta es una de las muchas adiciones a BASIC, que hacen que esta 
máquina sea tan buena, probablemente la contribución más significativa en 
lo que se refiere a microordenadores. 
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Seccionamiento de tiras 


Las instrucciones de seccionamiento de tiras de dos ordenadores 
difieren considerablemente del método MICROSOFT de modo que una 
guía de la traducción de estas instrucciones es útil. 


ZX80, ZX81, ZX SPECTRUM 


La instrucción de seccionamiento de tiras usa la palabra TO y es de la 
forma “tira (comienzo TO final)”. Esta forma reemplaza elegantemente las 
instrucciones LEFTS$, MIDS$ y RIGHTS usadas en MICROSOFT con un 
formato más simple. 


En la tabla 3.1 se dan ejemplos de equivalencias para hacer las 
conversiones fáciles. 


Tabla 3.1. Ordenes para seccionamiento de tiras. Diferencias 
entre Microsoft y Sinclair 


Microsoft Ejemplo Sinclair Ejemplo 

LEFTS$ BS$=LEFTS (A$,2) tira (TO fin) LET B$=A$ (TO2) 
(tira, número) 

RIGHTS BS=RIGHTS(A$,3) tira (arranque TO) LET B$=AS$(3TO) 
(tira, número) 

MIDS$ BS=MIDS$(A$,2,6) tira (arranque TO  LET BS$=A$(QT0O6) 
(tira, arranque, fin) fin) 

ACORN ATOM 


Las instrucciones de seccionamiento de tiras del ACORN ATOM no 
son fáciles de entender hasta que no se da uno cuenta que dependen del 
método o manera que el ACORN ATOM usa para las tiras. Una tira en 
ATOM BASIC se escribe en la forma $A en vez de en la más conocida AS; 
utilizando este formato, A es un número que es también el número de la 
dirección del primer carácter de la tira en la memoria, y la dirección en la 
memoria de otros caracteres en la tira pueden obtenerse añadiendo el 
número del lugar a A. Este esquema también se utiliza con el más corriente 
en la máquina BBC con la diferencia importante que variables tales como 
$A% en esa máquina no se borran cuando se borra el programa de modo que 
se pueden pasar de un programa a otro. Esta poderosa característica o 
atributo no se mencionó en el manual provisional de la máquina BBC. 
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La tabla 3.2. da las equivalencias para ATOM de las instrucciones 
MICROSOFT para seccionamiento de tiras con ejemplos. 


Tabla 3.2. Instrucciones para seccionamiento de tiras. Diferencias entre 
MICROSOFT y ATOM 


Microsoft Ejemplo ACORN Ejemplo 


LEFTS(tira, número) BS=LEFTS(AS$,2) asignar $B=$A 
tira+número =” $B+2=“>” 
RIGHTS(tira, número) B$=RIGHTS$(A$,3)  tira+número =” $B=$A+2 
MIDS(tira, arranque, B$=MIDS(AS$,2,6) asignar $B=$A 
final) tira+final=” $B+6="“>” 


tira=tira+comienzo  $B=2 


13000 Búsqueda de tiras - Primera letra dada 


Esta subrutina busca en el vector de tiras aquél que tenga una primera 
letra determinada. El vector de tiras es B$, y el número total de elementos en 
el vector tiene que transferirse a la subrutina como la variable J. La variable 
K se usa como una señal para indicar si se ha encontrado o no una tira y se 
debería poner a cero antes de llamar a la subrutina. La letra elegida se asigna 
a la tira A$ y en 13003 se prueba para ver si cumple. con la condición de 
carácter único. No se ha intentado restringir el uso de A$ a caracteres 
alfabéticos solamente; A$ puede ser numérico o incluso algunos de los 
signos tales como £, $, %, á, ?, *. Se puede hacer un filtrado a voluntad 
restringiendo el valor de ASCII de A$ a un margen particular, para indicar 
solamente un método. 


La subrutina debería continuarse preferentemente por alguna pausa, 
tal como la del asterisco intermitente, para permitir que el usuario tenga 
tiempo para digerir los mensajes en las líneas 13009, 130012, 13014 de 
acuerdo con el resultado de la rutina. 


Resulta también aconsejable que antes de llamar a la subrutina se use 
una intrucción para borrar la pantalla y evitar así confusiones visuales por 
exceso de información. 
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REM 3.1 BUSQUEDA DE UNA TIRA-SE PRECISA DEFINIR, J,K 
PRINT “TECLEE LA PRIMERA LETRA, POR FAVOR”; 
INPUT AS 

IF LEN (AS) > 1 THEN 13012 

FOR N =$ 1 TO J: REM J ES EL TOTAL DE ELEMENTOS 
IF AS = LEFTS (AS(N),1) THEN 13009 

NEXT N 

IF K <> 255 THEN 13014 

RETURN 

PRINT “ITEM>”;N; “ES”; B$ (N) 

K=255 

GOTO 13006 

PRINT “UNA LETRA SOLO, POR FAVOR” 

GOTO 13001 

PRINT “NINGUN NOMBRE EMPIEZA CON”; AS 

GOTO 13008 


Variables 


PASADAS J número de elementos 
K señalización 
B$ vector en el que se hace la búsqueda 
LOCALES N contador 
AS letra a buscar 
DEVUELTAS BS(N) elementos seleccionados 
K señal de no encontrado (255 si no se ha encontrado) 


13010 Buscador de una tira de longitud dada 


Esta subrutina sirve para localizar una tira de una longitud determi- 
nada en una distribución de tiras. La longitud deseada se introduce como la 
variable L en la línea 13013 y se prueba para valores de cero, negativos o 
fraccionarios en la línea 13014. Las longitudes de las tiras de vector se 
comparan luego con el valor que tiene la variable L y se imprimen las 
cadenas con la misma longitud. 


La variable de señalización K se inicializa en la línea 13014 y sirve para 
imprimir el mensaje de la línea 13023 si no se encuentra una tira de la 
longitud buscada. 


q 


El programa principal debe pasar un valor a J, el número total de 
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elementos de vector. 


13010 
13011 
13012 
13013 
13014 
13015 
13016 
13017 
13018 
13019 
13020 
13021 
13022 
13023 


13024 
13025 


13026 


REM BUSCADOR DE TIRA DE LONGITUD DADA 
PRINT “DAR LA LONGITUD DE LA TIRA”; 

K=0 

INPUT L 

IF L<=0 OR INT (L) <> L THEN 13025 

FOR N=1TOJ 

IF L= LEN (AS(N)) THEN 13020 

NEXT N 

IF K=0 THEN 13023 

RETURN 

PRINT “ITEM”; N; “ES”, AS(N) 

K=255 

GOTO 13017 

PRINT “NO HAY NINGUNA TIRA DE LONGITUD”; L; 
“CARACTERES”. 

GOTO 13029 

PRINT “SOLO NUMEROS ENTEROS POSITIVOS, POR 
FAVOR” 

GOTO 13011 


Variables 
PASADAS J número de elementos 
A$ () vector en que se hace la búsqueda 
LOCALES L Longitud de la tira 
N contador 
DEVUELTAS  AS() elemento(s) seleccionado(s) 


K señal de “no encontrado” (255 si no se ha encontrado) 


13020 Buscador de subtiras 


Esta rutina, muy útil, busca en un vector de tiras una subtira —un 
conjunto de caracteres consecutivos que existen dentro de una de las cadenas 


de vector— 
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De nuevo, aquí el programa principal debe suministrar un valor para J 
el número total de elementos y se pide al usuario que introduzca, en la línea 
13021 el grupo de caracteres A$ que hay que encontrar. Es deseable limitar la 
longitud de esta tira —normalmente no se quiere buscar la palabra HIPO- 
POTAMO dentro de otra palabra— y así se ha hecho arbitrariamente en la 
línea 13024 a cinco caracteres. 


Este valor podría también transferirse del primer programa y tendría 
que igualmente insertarse en el mensaje de atención en la línea 13037. 


El bucle que empieza en la línea 13025 toma las tiras del vector una por 
una y el bucle anidado en 13026 selecciona los puntos de arranque para 
grupos de letras en cada tira. La línea 13027 comprueba la igualdad entre la 
tira introducida A$ y un grupo de la misma longitud escogido en cada 
posible punto de arranque del elemento del vector seleccionado. 


La variable K se usa asimismo como una señalización para indicar si se 
han encontrado los grupos deseados produciendo el mensaje de la línea 
13035 si no se ha encontrado ninguna tira que contenga el grupo. 


PRINT “TECLEAR LA SUBTIRA A BUSCAR, POR FAVOR”; 
INPUT AS 

K=0 

Y = LEN (A$) 

IF Y > 5 THÉN 13037 

FOR N=1TOJ 

FOR X= 1 TO (LEN (BS(N)—Y+1) 

IF AS = MIDS (BS(N),X, Y) THEN 13032 

NEXT X 

NEXT N 


IF K = 0 THEN 13035 


RETURN 

PRINT “ITEM”; N; “ES”; BS (N) 

K = 255 

GOTO 13029 

PRINT “LA SUBTIRA”, A$; “NO SE HALLA EN NINGUNO DE 
LOS NOMBRES DE LA LISTA” 

GOTO 13031 

PRINT “EL MAXIMO SON CINCO LETRAS, POR FAVOR” 
GOTO 13020 


Variables 


PASADAS J número de elementos 
BS () vector de tiras a explorar 
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LOCALES Y longitud de la tira a buscar tecleada 
N,X contadores 
AS subtira que hay que encontrar 
DEVUELTAS — Bf () elementos 
K señalización “NO ENCONTRADO” (255 si “no encontrado”) 


13030 Clasificación en columnas (números) 


Esta subrutina toma un vector de números y los clasifica según el orden, 
de menor a mayor. Lo hace tomando el primer número y comparándolo con 
todos los demás, poniendo el menor primero en el vector y empezando de 
nuevo con el segundo elemento y así hasta que se han clasificado todos los 
números en el orden de menor a mayor; las instrucciones entre 13038 y 13040 
cambian los números cuando sea necesario. El programa principal tiene que 
suministrar el número total de elementos como el valor de la variable J. 
Advertir el mensaje en la línea 13030. 


Esta clasificación como todas las que comparan valores adyacentes es 
lenta cuando se tienen que clasificar muchos números. Esto es particular- 
mente cierto cuando el vector es un vector de tiras porque el problema de 
obtener información inútil puede aparecer entonces; de esto hablaremos en 
otro momento. 


PRINT “CLASIFICACION EN PROCESO: ESPERE” 
FOR N=1TOJ-1 

FORP=N+1TOJ 

IF K (P) <= K (N) THEN 13038 

NEXT P 

NEXT N 


PRINT “CLASIFICADO...” 
RETURN 

ZE?) 

K(P) =K (N) 

K (N)=Z 

GOTO 13034 


Variables 
PASADAS J número total de elementos en la lista 
K(J) vector de elementos 
LOCALES N,P, contadores 


Z variable para el cambio 
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DEVUELTAS K(J) vector clasificado 
J número total de elementos 


13040 Clasificación Shell-Metzner (números) 


Esta es una de las clasificaciones más rápidas que se pueden escribir 
fácilmente en BASIC. El principio en que se basa es el de dividir el vector en 
secciones y comparar elementos de cada sección, intercambiando cuando 
sea necesario, hasta que se han puesto en orden todas las secciones. Aunque 
el tiempo que se necesita para clasificar unos pocos elementos no representa 
una ventaja sobre la clasificación por columnas (puede incluso ser más 
largo), la clasificación S.M. es mucho más rápida cuando hay muchos 
elementos. 


Esta mayor velocidad no existe necesariamente cuando se clasifican 
tiras, a causa del problema de la obtención y liberación de memoria de 
trabajo. 


Cada intercambio que se hace con una tira (líneas 13054 a 13056) creará 
una nueva tira en la memoria, y ésta se llenará normalmente con informa- 
ción inútil. 

La rutina de recogida de memoria del ordenador entra en acción y se 
paraliza la rutina de clasificación y otras actividades hasta que se libera la 
memoria. 


La mayor parte de los ordenadores no indican cuando ocurre este 
proceso, comparado con un trance catatónico y su efecto es prolongar la 
clasificación de una tira grande por un tiempo considerable. 


A pesar de ello la clasificación S.M. es siempre interesante si el número 
de elementos excede de 50, pero la ventaja no aparecerá si se tiene que 
recuperar memoria. Un remedio parcial es reservar tanto espacio para la tira 
como permita el ordenador, otro es colocar la instrucción XX = FRE (Af) 
en el bucle exterior (el primer bucle FOR ... NEXT) de modo que se 
produzca la recogida de memoria a intervalos controlados. 


Un tercer método se ofrece en la siguiente subrutina. 


13040 PRINT “CLASIFICACION, ... ESPERE POR FAVOR” 
13041 Y =1 

13042 Y =2* Y 

13043 IF Y < N THEN 13042 

13044 Y = INT ((Y—1)/2) 
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13045 IF Y =0 THEN 13053 
13046 IT =N-—Y 

13047 FOR I= 1 TO IT 
13048 J=1 

13049 Z= J+Y 

13050 IF K (Z) <= K (J) THEN 13054 
13051 NEXT 1 

13052 GOTO 13044 

13053 RETURN 

13054 X =K(Z) 

13055 K (Z) =K (3) 

13056 K (J)= X 

13057 J=J—Y 

13058 IF J>0 THEN 13049 
13059 GOTO 13051 


Variables 
PASADAS N número de elementos 
K() vector que hay que clasificar 
LOCALES Y 1,I1T,J,Z, contadores 


X variable para intercambio 
DEVUELTAS K() vector clasificado 


13050 Shell-Metzner con VARPTR 


Muchos ordenadores usan la función VARPTR, que permite que se 
encuentren la dirección de la memoria y la longitud de una variable de tiras, 
usando las instrucciones PRINT PEEK (VARPTR (tira)). 


El método estándar que se utiliza por MICROSOFT y por otras 
versiones de BASIC es que VARPTR (A$) devuelva una dirección numérica 
y la información (byte) almacenada en esta dirección es la longitud de la tira. 


Las dos direcciones consecutivas próximas almacenan los bytes inferior 
y superior, en este orden, de la dirección en la que la cadena empieza en la 
memoria. Estas tres cantidades son los punteros para la tira y si estos tres 
punteros pueden intercambiarse, en lugar de intercambiar cada byte de dos 
tiras, entonces la operación de intercambio de tiras que es tan necesaria para 
la clasificación de las tiras se puede hacer sin generar información inútil. 


Esta subrutina para clasificación de tiras usa la clasificación S.M. 
adaptada para el intercambio de punteros en lugar de tiras completas. Así se 
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elimina el problema de recolectar la información inútil y puede acelerar las 
clasificaciones de gran cantidad de elementos. 


No hay ventajas en usar este método para un número pequeño de 
elementos ya que el tiempo consumido en el bucle que contiene las líneas 
13061 a 13069 es alto cuando se compara con el tiempo que se necesita para 
un intercambio directo en el caso de un número pequeño de tiras cortas. 


13050 PRINT “CLASIFICACION ... ESPERE POR FAVOR” 
13051 Y 

13052 Y =2* Y 

13053 IF Y < N THEN 13052 

13054 Y = INT ((Y—1)/2) 

13055 IF Y =0 THEN 13063 

13056 IT=N — Y 

13057 FOR 1= 1 TO IT 

13058 J=1 

13059 Z= J+Y 

13060 IF AS (Z)< AS (J) THEN 13064 
13061 NEXT 1 

13062 GOTO 13054 

13063 RETURN 

13064 FOR L=0T0O 2 

13064 Y1 = PEEK (VARPTR(AS(Z))+L) 
13066 Y2= PEEK (VARPTR(AS(J)+L) 
13067 POKE (VARPTR(AS(Z)+L), Y2 
13068 POKE (VARPTR(AS(J)+L), Y 1 
13069 NEXT L 

13070 J=J—Y 

13071 IF J>0 THEN 13059 

13072 GOTO 13061 


Variables 
PASADAS J número de elementos 
AS() vector de tira de elementos 
LOCALES Y LIT,J,Z,L, contadores 


Y 1,Y2 valores de pico 
DEVUELTAS  AS() vector clasificado 
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13060 Eliminar duplicados 


Esta subrutina busca en un vector de tiras los elementos repetidos y los 
elimina; es una función muy útil cuando hay un gran número de elementos y 
donde éstos se han introducido por distintos usuarios. El número total de 
elementos se transfiere a la subrutina asignando este valor a la variable N y 
los dos bucles en las líneas 13061 y 13062 comparan cada elemento por turno 
con todos los elementos siguientes, convirtiendo una tira repetida en espa- 
cios en blanco y reduciendo el total en uno cada vez que se encuentra un 
duplicado. El valor de N que se devuelve es el nuevo total de elementos 
únicos o no repetidos. 


PRINT “BUSQUEDA ... ESPERE POR FAVOR” 
FOR K= 1 TO N-—1 

FOR J=K+1TON 

IF AS (K) = AS (J) THEN 13067 


NEXT J 
NEXT K 
RETURN 
AS (J) = AS (N) 
AS (N) = “>” 
N=N-— 1 
GOTO 13064 
Variables 
PASADAS N, número de elementos 
AS() lista de tiras en la que se busca 
LOCALES K,J, contadores 


DEVUELTAS Af lista con duplicados eliminados 
N número de elementos en la lista reducida 


13070 Recogida controlada de memoria 


El problema de la recolección de información inútil, al que nos hemos 
referido anteriormente, puede algunas veces hacerse menos obvio, reali- 
zando una recolección deliberada de información inútil en los momentos en 
los que el ordenador no está realizando otros trabajos; por ejemplo, después 
que se ha impreso un mensaje, o entre ejecuciones de clasificación. Esta 
subrutina que puede usarse con cualquier ordenador que tenga la instruc- 
ción FRE (tira) imprimirá un mensaje y reasignará la memoria. 
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La variable X puede utilizarse si se necesita; es igual al número de bytes 
libres del espacio no asignado a tiras. 


13070 PRINT “SE ESTA REASIGNANDO LA MEMORIA: ESPERE” 


13071 X = FRE (ZZ$) 


Variables 
PASADAS ninguna 
LOCALES ZZ$ tira simulada, no utilizada 


DEVUELTAS — X número de bytes libres para almacenamiento de tiras 


13080 Clasificación rápida de números 


Esta subrutina más bien larga, es una de las más rápidas conocidas para 
clasificar números pero tiene la desventaja de utilizar muchas variables y de 
ocupar un gran espacio de memoria. 


Para una máquina de 16 K (o más), con posibilidad de usar líneas con 
varias instrucciones y con un gran número de nombres de variables permiti- 
das, es la preferida para la clasificación numérica de grandes vectores o 
tablas. 


Como todas las rutinas de clasificación, se basa en el principio de 
descomponer el vector en grupos y comparar elementos de distintos grupos, 
pero el modo de seleccionar los grupos y de comparar los números es más 
complicado que el que usa la rutina Shell Metzner. 


A causa de la obtención de memoria no hay ninguna ventaja en usar 
esta rutina para tiras, a menos que se disponga de una máquina que haya 
declarado las longitudes de las tiras y que no produzca información inútil. 
Hasta donde yo sé la rutina funciona adecuadamente con tiras en el micro 
BBC. 


13080 PRINT “CLASIFICACION ... POR FAVOR ESPERE” 
13081 P=1 
13082 Q (1) = 1 
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X = K (INT ((U+D)/2)) 
IF K (3) < X THEN 13107 
IF X < K (L) THEN 13109 
IF J > L THEN 13098 
W=K (3) 
Kk)=XK(D 
K (L) =w 
J=14 +1 
b=L==1 
IF J<= L THEN 13090 
IF J >= D THEN 13103 
P=P+1 
QU(EL=J 
R (P)=D 
D:=E 
IF U < D THEN 13087 
IF P<>0 THEN 13084 
RETURN 

=J+1 
GOTO 13090 
== 
GOTO 13091 


Variables 
PASADAS N, número de elementos 
K() vector que hay que clasificar 
LOCALES P, contador 


QO RO vector de contadores 
U,D,J,L,X,W, almacenamiento temporal 
DEVUELTAS K() vector clasificado 


13090 Clasificación de sub-vectores 


Esta subrutina permite separar un grupo de elementos de un vector de 
tiras para formar otro vector. Esto puede ofrecer varias ventajas entre las 
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que no es la menor que se pueda clasificar el vector obtenido rápidamente si 
se requiere. 


La característica elegida para los elementos en este ejemplo ha sido la 
letra inicial, pero cualquier otra característica (longitud de la tira, tener un 
determinado grupo de letras o caracteres etc.) puede elegirse, usando las 
subrutinas que se han descrito anteriormente. 


La variable A$ se usa como el identificador para el vector B$ en el que el 
número total de elementos N debe traspasarse a la rutina. Los elementos 
seleccionados se ponen en una nueva distribución C$ cuyo número total es 
Q. Se imprimirá un mensaje en el caso de que no se encuentren tiras del 
grupo requerido. 


PRINT “POR FAVOR, TECLEE LA LETRA INICIAL A 


SELECCIONAR 
13091 K=0 
13092 Q=0 


13093 INPUT AS 
13094 IF LEN (A$) > 1 OR LEN (A$)< 1 THEN 13100 
13095 FOR J=1 TON 

13096 IF A$ = LEFTS (BS(J),1) THEN 13104 

13097 NEXT J 

13098 IF K =0 THEN 13102 

13099 RETURN 

13100 PRINT “SOLO UNA LETRA, POR FAVOR” 

13101 GOTO 13090 

13102 PRINT “NINGUN NOMBRE COMIENZA CON”; A$ 
13103 GOTO 13099 

13104 K = 225 

13105 Q=Q+1 

13106 C$ (Q) = BS (J) 

GOTO 13097 


Variables 
PASADAS N, número de elementos en el vector principal 
B$ vector de tiras 
LOCALES J, contador 


DEVUELTAS K, identificación “no encontrado” (255 si no se encuentra) 
Q, número de elementos encontrados. 
CS() vector de elementos encontrados. 
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13100 Selección de un elemento 


La instrucción READ... DATA que existe en casi todos los microorde- 
nadores (con las únicas excepciones de los ZX80/81l y ACORN ATOM) es 
útil para leer los elementos de una distribución, pero está limitada al ser 
estrictamente secuencial. 


Esta subrutina permite elegir un elemento de una lista DATA (de datos) 
especificando un número que se asigna a la-variable K. Se leen entonces K 
elementos de la lista de datos (DATA) y asignados a su vez a la variable A$ 
(se supone un conjunto de datos de tiras ya que cualquier dato puede leerse 
como una tira). 


El valor de A$ que se devuelve al programa principal será entonces el 
elemento correspondiente al número que se introdujo. La instrucción RES- 
TORE enla línea 1301 es necesaria para asegurarse que la lista de datos se lee 
desde el principio cada vez que se usa la rutina. 


El número total de elementos N se debe traspasar a la rutina para evitar 
que aparezca un mensaje de error(OUT OF DATA) si el valor seleccionado 
es demasiado alto. 


13100 PRINT “QUE ELEMENTO NUMERICO SE REQUIERE” 
13101 RESTORE 

13102 INPUT K 

13103 IF K <=0 OR K>N THEN 13108 

13104 FOR J=1 TO K 

13105 READ AS 


13106 NEXT J 

13107 RETURN 

13108 PRINT “NUMEROS ENTRE 1 Y”;N;“ SOLAMENTE 
POR FAVOR” 

13109 GOTO 13100 


Variables 


PASADAS N numero máximo de elementos en la lista de datos 
AS elementos de los datos en la lista de caracteres 
EOCALES J contador 
DEVUELTAS K número del elemento 
A$ elemento seleccionado 
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13110 Búsqueda de un elemento en una lista ordenada 


La búsqueda de un elemento determinado de una lista en las que sus 
elementos están distribuidos al azar, requiere la comprobación de cada uno 
de ellos, pero si la lista se ha clasificado previamente, entonces se realiza otro 
tipo de búsqueda; se puede usar la búsqueda binaria. 


La diferencia es la misma que resulta de comparar el tiempo necesario 
para encontrar una palabra en un libro mirando las páginas secuencialmente 
o mirando el índice. 


El principio usado es dividir la lista en dos secciones y decidir en cuál de 
ellas se encontrará el elemento buscado. 


Dicha sección se divide a su vez en otras dos, y la parte que contiene el 
elemento se selecciona; se repite el procedimiento hasta que se encuentra el 
elemento. La gran ventaja es que se necesitan comparativamente pocas 
comprobaciones incluso si la lista es muy larga, y los elementos pueden 
encontrarse en un tiempo relativamente corto. 


Cuando hay que buscar elementos de una lista dada, vale la pena 
clasificar la lista primero, grabar la lista clasificada y utilizar esta rutina 
posteriormente. 


El número total de elementos se traspasa como un valor para N, el 
vector en el que se realiza la búsqueda es B$ y el elemento buscado AS. 


13110 PRINT “TECLEE EL NOMBRE BUSCADO”, 
13111 INPUT AS 

13112 J=N +1: REMN ES TOTAL 

13113 Nl=J 

13114 N2= INT ((NI1+1)/2) 

13115 IF N2=0 OR N2>N THEN 13123 

13116 1F AS < BS (N2) THEN 13121 

13117 IF AS = BS (N2) THEN 13124 

13118 N1= N2+J 

13119 N3=N 2 

13120 GOTO 13124 

13121 N1= N24+N3 

13122 GOTO 13114 

13123 PRINT AS; “NO ESTA EN LA LISTA” 

13124 RETURN 
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Variables 
PASADAS 


LOCALES 
DEVUELTAS 


N, número total de elementos en la lista 
B$() vector de elementos 

J,N1,N2,N3 contadores 

N2, número del elemento encontrado 
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Operaciones con 
vectores y matrices 


Algunos de los primeros textos en Basic que se ofrecían al usuario de 
microordenadores, contenían referencias a instrucciones tales como 
MATPRINT que nunca han existido en los microordenadores que yo sepa, 
revelando que los libros de hecho, se habían escrito para los usuarios de 
ordenadores de mayor tamaño. 


En general, todos los ordenadores permiten el uso de vectores que 
tienen un subíndice de la forma N(1) N(Q) etc. 


La mayor parte de los micros también permite la formación de una 
variable matricial que es simplemente una matriz de dos dimensiones tales 
como NX(1,1), N(1,2) etc. 

Si se usan otras instrucciones más avanzadas es debido al tamaño de la 


ROM y ala importancia que el diseñador ha dado a las rutinas con matrices 
en comparación con otros aspectos, como color de los gráficos etc. 


Las subrutinas en esta sección se han diseñado para que se puedan hacer 
operaciones útiles con vectores y matrices en máquinas que tienen solamente 
un mínimo de capacidades en este campo. 


Las últimas rutinas del capítulo son probablemente más interesantes al 
lector que se dedique a aplicaciones científicas y matemáticas más bien que a 
aplicaciones comerciales. 


Empecemos, sin embargo, con una breve descripción de la obtención de 
números aleatorios y su sintaxis en algunas máquinas populares. 
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RND 


La instrucción RND se usa generalmente en micros para obtener núme- 
ros aleatorios, pero la sintaxis varía ligeramente de un ordenador a otro. El 
sistema más lógico es el usado en el micro BBC en el que la instrucción RND 
(6) por ejemplo producirá un número seleccionado aleatoriamente en el 
rango del 1 al 6 ambos inclusive. Este ejemplo da el número aleatorio 
correcto, del mismo modo que el que se obtendría con un dado. 


La tabla 4.1 indica algunas variaciones de sintaxis en ésta y otras 
máquinas. 


Tabla 4.1. Sintaxis de RND 


1. Máquina BBC (basado en la guía provisional del usuario) 
RND usada sola genera un número elegido aleatoriamente entre —2147483648 y 
+ 2147483647. 
RND (—N) imprime el valor de N y resiembra el generador de números aleato- 
rios con un valor que está basado en N. 
RND (0) repite el último número aleatorio generado por RND (1). 
RND (1) genera un número escogido aleatoriamente entre 0 y 0.999999. 
RND (X) genera un número aleatorio entre, o puede incluir 1 y el valor de X. 


2. ZX81 
RND se usa siempre sola y devuelve un número entre 1 y 65536 inclusive. 
La siembra del generador de números aleatorios se altera con RAND X donde X 
es el número sembrado. Un valor dado de X siempre generará la misma secuencia 
de números aleatorios. 


3. ACORN ATOM 
RND devuelve un número aleatorio que está entre —2147483648 y +2147483647. 
Restaura la siembra insertando un nuevo número entre las direcciones 8 a 12 
inclusive. Para números aleatorios entre A y B, donde A y Bson números enteros, 
usar ABSRND%(B—A)+A 


4. TRS 80/Video Genie 
RND (0) devuelve con un dígito de simple precisión (6 dígitos) entre 0 y 1. 
RND(N) donde N es un número entero devolverá un número aleatorio entre l y 
N. La instrucción RANDOM se usa para resembrar el generador. 


5. CMB PET 2000 
RND (—N) produce el mismo número en cada llamada. 
RND (0) produce la misma secuencia de números aleatorios. 
RND (+N) produce una secuencia distinta en cada llamada. 
Cada número aleatorio está entre 0 y 1. 
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6. APPLE 2 
RND (—N) produce un número aleatorio entre 0 y —N+1 
RND (+N) produce un número aleatorio entre 0 y N—1 


El principal problema de RND es el de producir un número aleatorio 
verdadero, porque no hay proceso operativo en el microprocesador que sea 
verdaderamente aleatorio; todas las señales y números se obtienen por 
medio de algún tiempo de cálculo o proceso lógico. 


Algunas máquinas basadas en el Z-80 producen aleatoriedad basando 
sus números aleatorios en el contenido del registro de refresco de dicho 
microprocesador, descansando en el hecho que el contenido del registrador 
R tiene menos relación a los procesos que se realizan por el ordenador que 
las de otro registrador. 


El problema no es simple; es relativamente fácil generar números que 
son bastante aleatorios para algunos juegos, pero producir números que 
puedan ser clasificados o definidos como aleatorios para muestras estadísti- 
cas es otra cosa. Antes de usar RND para análisis serios de estadísticas, se 
deberían comprobar los números obtenidos para verificar si son realmente 
aleatorios o por el contrario siguen una distribución no aleatoria. 


Un método muy común de generar una serie de números aleatorios es 
empezar con un valor “sembrado” y generar otros números a partir de el. 


Dos fórmulas ligeramente distintas son: 


a) r'=(r*a) MOD B 
donde r es el número aleatorio previo 
r” es un nuevo número aleatorio 
B es un número primo 
a es una “semilla” que si está bien elegida producirá números aleato- 
rios con esta fórmula 


b) r=(a*r+c) MOD D 
Como antes pero D es un número grande y no necesita ser primo ya yc 
son seleccionados. 
Experimentos realizados sugieren que con D= 65536 y c un número 
impar, a puede ser 293,389, 6 1509 con buenos resultados. 


El Z-80 y Z-81 usan B= 65537 y a= 75 en su forma de expresión (a). 
Una vez que se ha producido un número aleatorio fraccionario se puede 
manipular por multiplicación y redondeamiento para obtener números 
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enteros dentro del margen que se necesite. El uso de RAMDOMISE 
(RAMDOMIZE) en muchos diseños de ordenador permite que se pueda 
cambiar el valor sembrado para evitar posible repetición de secuencias. 


Para más información sobre números aleatorios ver la obra de Knuth 
“Art of Computer Programming”. 


14000 Matriz de Pares 


Esta subrutina simple permite que pares de elementos se introduzcan en 
una matriz de tiras A$. El número de pares debe especificarse en la variable J. 


La elección de pares hace que ésta sea particularmente útil para asociar 
preguntas con respuestas y si el ordenador puede clasificar matrices así como 
distribuciones de tiras, permite clasificar juntos pares de elementos, mucho 
más simplemente que asignando dos variables de tiras separadas e 
intercambiándolas. 


14000 PRINT “POR FAVOR, TECLEAR”; J; “PAREJAS DE 
ELEMENTOS” 
14001 FOR N= 1 TO J 


14002 INPUT AS (N,1), AS (N,2) 
14003 NEXT N 
14004 RETURN 


Variables 
PASADAS J, número de parejas 
LOCALES N, contador 


DEVUELTAS  AS$( matriz de elementos 


14010 Formación de una matriz N X M 


Esta subrutina permite poner a los elementos en una distribución bi 
dimensional. Los números de las filas / columnas se imprimen antes de que se 
introduzca cada elemento (línea 14013) de modo que el usuario puede ver los 
números que se han asignado. 
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PRINT “POR FAVOR, TECLEAR”; J; “CONJUNTOS DE”; P; 
“ELEMENTOS” 

FOR N= 1 TO J 

FOR M= 1 TO P 


PRINT “ELEMENTO” N; CHR$ (8) “.” M; 

INPUT AS$ (N,M): REM RECUERDE DIMENSIONAR AS$ 
NEXT M 

NEXT N 

RETURN 


Variables 
PASADAS J, número de conjuntos 
P, número de elementos en cada conjunto 
LOCALES N,M, contadores 


DEVUELTAS AS(,) matriz de elementos 


14020 Impresión de dos columnas 


Los elementos que se han introducido en una matriz de dos columnas 
por la subrutina 14000 pueden imprimirse en formato de dos columnas por 
esta subrutina. 


El número total de filas tiene que traspasarse como el valor de J. 


14020 PRINT “RESULTADOS” 
14021 FOR N= 1 TO J 


14022 PRINT AS (N,1); TAB (20)AS(N 2) 
14023 NEXT N 
14024 RETURN 


Variables 
PASADAS J, número de filas 
AS(,) matriz de elementos 
LOCALES N, contador 


DEVUELTAS — ninguna 
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14030 Impresión de una matriz N X M 


Pocos ordenadores (por no decir ninguno) poseen la instrucción 
MATPRINT de modo que una matriz bidimensional tiene que imprimirse 
en filas y columnas por una rutina de este tipo. Se debe tener cuidado de los 
números TAB en la línea 14033, porque la matriz puede tener más columnas 
de las que pueden imprimirse en la pantalla y no hay ninguna forma fácil 
para eludir este problema. 


* A partir de aquí en este capítulo, las subrutinas son de más interés 
para usuarios matemáticos o científicos. Se han descrito en menor detalle 
porque los futuros usuarios conocerán generalmente lo que significa la 
función de cada subrutina *. 


PRINT “RESULTADOS” 

FOR N=1TOJ 

FOR M=1 TOP 

PRINT TAB (10*(M—1)) AS (N,M); 


NEXT M 
PRINT 
NEXT N 
RETURN 


Variables 
PASADAS J,P, totales de filas y columnas 
AS(,) matriz de elementos 
LOCALES N,M contadores 


DEVUELTAS ninguno 


14040 Multiplicación escalar — Matriz de tres elementos 


La multiplicación escalar de una matriz significa multiplicar cada ele- 
mento por el mismo valor y para una matriz tridimensional esto significa 
usar tres bucles FOR ... NEXT. 


Los valores máximos de cada dimensión deben traspasarse como las 
variables N1, N2 y N3 y el factor multiplicador es la variable Z. El resultado 
es la matriz B (1,J,K.). 
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FOR 1=1TONI1 
FOR J=1TO N2 
FOR K=1TO N3 
B(K,J,D) = A(K,J,D* Z 


NEXT K 
NEXT J 
NEXT I 
RETURN 


Variables 


PASADAS N1,N2,N3, números dimensionales de la matriz 
Z número multiplicador 
A (,) matriz de números 

LOCALES I,J,K, contadores 

DEVUELTAS B (,) matriz de números 


14050 Transposición de una matriz (dos dimensiones) 


Esta rutina transpone (intercambia filas y columnas) una matriz de dos 
dimensiones A (1,J,) en la nueva matriz B(J,I). Las dimensiones Nl y N2 
deben traspasarse desde el programa principal. 


14050 FOR I1= 1 TO NI] 
14051 FOR J = 1 TO N2 
14052 B(J,1)= A (LJ) 


14053 NEXT J 
14054 NEXT I 
14055 RETURN 


Variables 
PASADAS N1,N2 dimensiones de la matriz 
A(,) matriz 
LOCALES LJ, contadores 


DEVUELTAS B(,) matriz resultante 
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14060 Adición de matrices — caso Bidimensional 


Esta subrutina suma dos matrices bidimensionales A y B para formar la 
nueva matriz C. 


14060 FOR J= 1 TO N2 
14061 FOR I=1 TONI 
14062 C (1,3) = A (LD) +B (LJ) 


14063 NEXT I 
14064 NEXT J 
14065 RETURN 


Variables 
PASADAS N1,N2 dimensiones de la matriz 
A(,) B(,) matrices 
LOCALES LJ, contadores 


DEVUELTAS — C(,) matriz resultante 


14070 Multiplicación de elementos 


Las matrices A y B se multiplican elemento a elemento para formar los 
elementos de la nueva matriz C. 


14070 FOR J = 1 TO N2 
14071 FOR I1= 1 TO NI 
14072 C(LJ) = A(,J)* B (LJ) 


14073 NEXT I 
14074 NEXT J 
14075 RETURN 


Variables 
PASADAS N1,N2 dimensiones de la matriz 
A(,) B(,) matrices a multiplicar 
LOCALES LJ, contadores 


DEVUELTAS — C(,) matriz producto 
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14080 Multiplicación de matrices 


La matriz C se forma multiplicando la matriz A por la matriz B. 
Advertir que hay que traspasar aesta subrutina tres números dimensionales. 


FOR I=1 TONI 
FOR J=1 TO N2 
can =0 

FOR K=1 TO N3 


C (LJ) = CA,D)+A(,K)* B(K,J) 
NEXT K 

NEXT J 

NEXT I 

RETURN 


Variables 


PASADAS N1,N2,N3 dimensiones de las matrices: A(N1 X N3), B(N3 X 
N2), C(N1 X N2) 
A(,) B(,) matrices 

LOCALES LJ,K, contadores 

DEVUELTAS — C(,) matriz producto 


Las próximas dos subrutinas son largas, pero extremadamente útiles. 
Para comprobar que se han introducido correctamente, el método más 
simple es escribir un corto programa de llamada que alimenta un juego de 
valores cuyo resultado puede comprobarse fácilmente. 


14090 Inversión de una matriz — Bidimensional 


El mensaje en la primera línea es necesario por el tiempo que puede 
durar esta rutina. La variable N es el número de dimensiones (número de 
filas igual al de columnas) de la matriz V que se usa para la entrada a la 
rutina. 

La rutina invertirá entonces la matriz si esto es posible y transfiere el 
resultado como una matriz K. Si no hay solución se imprime un mensaje con 
dicha información. 
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Esto también pone la variable XX a 255 de modo que cualquier impre- 
sión que seguiría normalmente para visualizar la matriz puede suprimirse. 


PRINT “ESPERE POR FAVOR, ESTOY CALCULANDO” 
X= 0 

FOR J=1 TON 

FOR L=1TON 

K (J,L) = 1 — ABS (SGN (J—L)) 
NEXT L 

NEXT J 

FOR J=1TON-—1 

IF V (3,3) =0 THEN 14115 

FOR L=J+1TON 
M=V(L,J)/V0,J) 

FOR P=1 TON 

V (L,P) = V (L,P) — M*V (J,P) 

K (L,P) = K (L,P) — M*K (J,P) 
NEXT P 

NEXT L 

NEXT J 

FOR J=N TO 1 STEP — 1 

FOR P=1TO N 

FOR L=J+1TON 

K (3,P) = K (J,P) — V (3,L)* K (L,P) 
NEXT L 

K (JP) =K (J,P)/VJ) 

NEXT P 

NEXT J 

RETURN 

PRINT “NO TIENE SOLUCION” 
XX = 255 

GOTO 14115 


Variables 
PASADAS N, número de filas = número columnas 
V (,) matriz a invertir 
LOCALES XX,J,L,P, números intermedios 


DEVUELTAS — K (,) matriz invertida 


14100 Solución de ecuaciones simultáneas 


La solución de ecuaciones simultáneas puede seguir el proceso de la 
inversión de una matriz, pero esta subrutina realiza todo el proceso. Los 
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coeficientes de las incógnitas se introducen en orden (x,y,z, por ejemplo) 
como elementos de la matriz K y los números como la matriz G. Las 
soluciones se imprimen en el orden x y z de las incógnitas como la matriz L. 
Por ejemplo: 


3x + 2y = 12 3 +A Ys 

4x+y=1] 4 ¡E 1 
Asignación de matriz 

K (1,1) = 3 K (1,2) = 2 

K (Q,1)=4 K (2,2) = 1 
Asignación de vectores 

G (1) = 12 

G (2)= 11 


Llamar la subrutina 
Imprimir el vector L 
L (1) =2 
L (2)=3 


Por eso x = 2, y = 3. Son las soluciones 


14100 PRINT “ESPERE POR FAVOR, ESTOY CALCULANDO 
0 XX =O 

14102 FORJ=1TON— 1 
14103 Y=J 

14104 X =K (3,3) 

14105 FOR H=J+1 TON 
14106 IF K (H,J) <= X THEN 14109 
14107 Y =H 

14108 X= K (J,H) 

14109 NEXT H 

14110 IF X=0 THEN 14137 
14111 1F Y =J THEN 14120 
14112 FORF=1TON 
14113 Z=K (J,F) 

14114 K (J,F) =K (Y,F) 
14115 K(Y,F)=Z 

14116 NEXT F 

14117 Z=G ()) 

14118 G (J) = G(Y) 

14119 G(Y)=Z 

14120 FOR H =J+1TON 
14121 X=K(H,J)/KGQ,J) 
14122 FOR F=JTO N 
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14123 
14124 
14125 
14126 
14127 
14128 
14129 
14130 
14131 
14132 
14133 
14134 
14135 
14136 
14137 
14138 
14139 
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K (H,F) = K (H,F) — X*K (J,F) 
NEXT F 

G (H) = G (H) — X*G (J) 
NEXT H 

NEXT J 

L (N) = G(Ny/K (N,N) 


FOR J=N— 1TO 1 STEP — 1 
Z=0 

FOR H=J+1 TO N 

Z=Z +L(H) K (JH) 
NEXT H 

L (Y) = (G(J)—Z)/K (J,J) 
NEXT J 


RETURN 

PRINT “NO TIENE SOLUCION” 
XX = 255 

GOTO 14136 


Variables 
PASADAS N, número de ecuaciones 
K, matriz de incógnitas 
G, vector de números 
LOCALES XX,J, Y,H, F contadores 


X, Z almacenamiento temporal de números 


DEVUELTAS L (,) vector de resultados 
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Gráficos y diagramas 


Los diseñadores de ordenadores tienen sus preferencias respecto a la 
parte del sistema operativo del ordenador que se dedicará a la tarea de 
obtener representaciones gráficas. Mi opinión es que bastaría la capacidad 
de imprimir un punto en cualquier lugar que se desee de la pantalla, porque 
no considero que el dibujo de gráficos sea una característica que se necesite o 
se use con frecuencia. 


La capacidad normal para dibujar gráficos denominada de baja resolu- 
ción (que curiosamente algunos fabricantes denominan de alta resolución) 
es la que consiste en poseer un conjunto de números codificados, correspon- 
diéndose cada uno con una forma gráfica determinada, y que se imprimirá 
en la pantalla respondiendo a la instrucción PRINT CHR$ (n), (n es el 
número), pero como cada diseñador utiliza un juego diferente de números 
codificados y un juego también distinto de gráficos, no hay manera de 
indicar cómo se puede obtener una forma o estructura gráfica con todos los 
ordenadores (4). 


Este capítulo indica por lo aducido anteriormente, solamente unos 
pocos métodos generales gráficos que casi todos los ordenadores pueden 
usar, en vez de rutinas detalladas que sólo servirían para un ordenador 
determinado. 


El tema de dibujar diagramas en la pantalla o en papel usando una 
impresora se trata con más detalle, ya que es una forma importante de 
visualizar información para usos científicos, y no necesita recurrir a ningún 
tipo de símbolo gráfico. 


(4) En el IBM PC existen también los caracteres o dibujos formados por trozos de rectángulos 
(tipo TRS-80), si bien se han reducido en favor de otros símbolos (si el programador lo desea se 
pueden reconstruir todas las combinaciones de los rectángulos) (N. del Ed.) 
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SET/RESET 


SET y RESET son las instrucciones usadas en un tipo de sistema 
gráfico de baja resolución en los ordenadores que trabajan con Microsoft 
Basic. 


La pantalla se divide en unidades elementales llamadas pixels(derivada 
de las palabras inglesas picture element) cada espacio impresor contiene seis, 
dos alo ancho y tres alo largo. Por cada columna de texto hay dos columnas 
de pixels, y por cada fila de texto hay tres filas de pixels. 


El TRS 80 con una pantalla que contiene 64 columnas por 16 filas, tiene 
por lo tanto una capacidad gráfica de 128 por 48 pixels, y estos números 
pueden usarse para seleccionar un pixel determinado. Un sistema similar se 
usa también para los gráficos Teletext-mode de la máquina BBC. 


Antes de usar la instrucción SET se debe encontrar en la pantalla la 
posición de los pixels, y esto se logra fácilmente usando un mapa en video de 
la pantalla, que existe en casi todas las máquinas, que muestra los números 
de las columnas y de las filas de los pixels. La instrucción SET (X, Y) donde 
X es el número de referencia de la columna y el número de referencia de la 
fila hará que se ilumine la posición o pixel correspondiente a dichas 
coordenadas. 


Por ejemplo SET (64,2) iluminará el pixel central en la segunda línea 
gráfica (el centro de la primera línea del texto) en el TRS 80. La instrucción 
SET se puede usar en cualquier lugar del programa, y los gráficos resultantes 
se pueden mezclar con el texto, con tal de que se tengan en cuenta los 
diferentes tamaños de los números de referencia. 


RESET es la instrucción correspondiente, RESET (X,Y) hará que el 
elemento cuya posición viene determinada por las coordenadas, adquiera el 
color del fondo de la pantalla (normalmente netro). Si el pixel no estaba 
iluminado no ocurrirá nada. 


Usando SET y RESET alternativamente se puede hacer intermitente un 
pixel u obtener un efecto de movimiento lento, al iluminar un pixel en un 
lado de un bloque, y extinguiéndolo en el otro lado del bloque. 


La instrucción POINT es útil para usar en conjunción con SET y 
RESET. Se usa con las instrucciones SET/RESET del TRS 80 principal- 
mente para interrogar las diversas posiciones de la pantalla para descubrir 
qué pixels están iluminados. POINT está seguido de las coordenadas del 
punto entre paréntesis. Es una instrucción de búsqueda que en la máquina 
TRS 80 devolverá un —1 si el pixel está iluminado y un 0 si por el contrario 
no lo está. 


Se puede por lo tanto usar POINT para evitar escribir sobre un cuadro 
determinado o para detectar límites en dibujos complicados, tales como las 
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paredes de un laberinto, etc. Su acción es sin embargo muy lenta para poder 
usarse con juegos animados. 


Se puede usar POINT en un bucle para buscar todos los pixels que estén 
iluminados, y con SET, RESET y RND, puede añadir o eliminar pixels 
produciendo unos efectos similares a los del programa denominado Juego 
de Vida. 


La instrucción POINT en la máquina BBC devuelve el número del 
código del color de la posición de la pantalla interrogada. La instrucción 
tiene dos coordenadas en el orden X Y y el número obtenido dependerá de la 
modalidad del color que se utiliza, aunque la acción no sirve para MODE 7 
(Teletext mode). 


15000 Imprimir un punto 


Esta subrutina es simple pero fundamental. Dado un número asignado 
a la variable Y, esta rutina imprime un punto en esta posición tabulada y 
después retorna. Por supuesto que se pueden usar otros caracteres en lugar 
del punto y puede usarse con un bucle para imprimir una fila de caracteres. 


15000 PRINT TAB (Y) “.” 


15001 REM SE PUEDE USAR *, O ALGUNA BARRA 
15002 RETURN 


Variables 
PASADAS Y posición tabulada 
LOCALES ninguna 


DEVUELTAS — ninguna 


15010 Carácter desplazable (versión 1) 


Esta subrutina usa la instrucción PRINTGO que existe en la mayor 
ROM de muchos ordenadores actuales. El efecto de la rutina es el de 
imprimir un asterisco o cualquier otro símbolo seleccionado, en una posi- 
ción en la pantalla determinada por el valor de la variable Y, y borrar el 
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espacio que la precede. Usando la subrutina con un bucle se puede obtener 
un carácter que se mueve. 


15010 PRINTO Y, “+”; 


15011 PRINTO (Y—1), *”; 
15012 RETURN 


Variables 
PASADAS Y posición de PRINT 
LOCALES ninguna 


DEVUELTAS — ninguna 


15020 Carácter movible (versión 2) 


Con las máquinas que no disponen de la instrucción PRINTO esta 
versión del carácter movible usa TAB en conjunción con el código de control 
para desplazar el cursor hacia arriba. 


Parecería más simple usar PRINTTAB (Y—-1) “”; seguido por 
PRINTTAB (Y) “**”, pero esto duplica el espacio del asterisco en muchas 
máquinas. 


15020 PRINT TAB (Y—1) *” 
15021 PRINT CHRS (27); 


15022 PRINT TAB (Y) “*” 
15023 PRINT CHRS (27); 
15024 RETURN 


Variables 
PASADAS Y posición de tabulación 
LOCALES ninguna 


DEVUELTAS — ninguna 
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15030 Subrayado (versión 1) 


Esta rutina utiliza un guión para subrayar pero se podría obtener una 
línea más sólida con un bloque gráfico. La variable X se habrá obtenido del 
programa principal o desde una rutina usada para conseguir la posición de 
tabulación para centrar el título en la pantalla. 


15030 PRINT TAB (X); 
15031 FOR XX = 1 TO LEN (A$) 
15032 REM AS ES EL TITULO DE CABECERA 


15033 PRINT TAB (XX) “—”; 
15034 NEXT XX 
15035 RETURN 


Variables 
PASADAS X posición de tabulación 
AS Título 
LOCALES XX para el subrayado 


DEVUELTAS — ninguna 


15040 Subrayado (versión 2) 


La instrucción STRING$ no existe en algunas de las máquinas más 
pequeñas, pero es muy útil para crear tiras de caracteres. La rutina usa la 
instrucción para producir una tira de signos “igual” que servirá para subra- 
yar un título. El formato de la instrucción permite usar bloques gráficos; por 
ejemplo STRINGS$ (20,162) producirá una tira de 20 bloques gráficos cuyo 
número de código es 162. 


15040 XX = LEN (AS) 
15041 PRINT TAB (X) STRINGS$ (XX, “=”) 


15042 RETURN 
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Variables 
PASADAS X, número de posición 
AS título 
LOCALES XX, número de subrayado 


DEVUELTAS — ninguna 


15050 Subrayado (versión 3) 


Para los ordenadores que no tienen la instrucción STRING$ esta 
subrutina permite reunir una tira de caracteres en una variable de tira que 
puede imprimirse con una instrucción. 


La ventaja es que la acción de formar la tira se separa de su impresión, 
permitiendo que la instrucción PRINT opere mucho más rápidamente que 
sería posible si fuera usado en un bucle. 


15050 ZZ5 = “>” 
15051 FOR K = 1 TO LEN (AS) 
15052 ZZ$ = ZZ5$ + “=” 


15053 NEXT K 
15054 PRINT TAB (X) ZZ$ 
15055 RETURN 


Variables 
PASADAS X, posición tabulada para el título 
AS título 
LOCALES K contador 


ZZ$ tira subrayada 
DEVUELTAS — ninguna 


15060 Sobrerrayado. Subrayado (versión 1) 


Esta rutina imprime una fila completa de asteriscos, un título, luego 
otra fila de asteriscos. 


Ver también la subrutina 11050. 
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FOR K=1TO Z 

REM Z CARACTERES POR LINEA 
PRINTTAB(EIS 

NEXT K 


PRINT TAB (X) AS 
FOR K=1TOZ 
PRINT TAB (K) “*>, 
NEXT K 

RETURN 


Variables 
PASADAS Z caracteres por línea 
X posición de impresión del título 
AS$ título 
LOCALES K contador 


DEVUELTAS ninguno 


15070 Sobrerrayado, Subrayado (versión 2) 


Esta es la misma rutina que la 15060 con el bucle puesto en la forma de 
una subrutina. 


GOSUB 15074 
PRINT TAB (X) AS 
GOSUB 15074 
RETURN 


FOR K=1TOZ 
PRINT TAB (K) “*>; 
NEXT K 

RETURN 


Variables 
PASADAS Z, caracteres por línea 
X, posición de impresión del título 
AS título 
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LOCALES K contador 
DEVUELTAS — ninguna 


15080 Reunión de Gráficos 


Los caracteres gráficos pueden imprimirse uno a la vez por instruccio- 
nes del tipo PRINT CHR$ (166) usando los números que están asignados a 
formas gráficas en su propio ordenador. Esto es adecuado cuando única- 
mente se imprimen formas simples, pero cuando se reúnen varias para 
formar una figura entonces se puede usar una subrutina de este tipo. 


Los valores Gl a G5 son números de código de gráficos que deben 
suministrarse por el programa principal junto con el número de tabulación Y. 


La ventaja de esta simple rutina es que varias formas distintas pueden 
imprimirse usando la misma subrutina simplemente pasando valores apro- 
piados de G1-GS incluyendo espacios en blanco si es necesario. 


15080 PRINT TAB (Y) CHR$ (Gl); CHR$ (G,2); CHR$ (G3) 


15081 PRINT TAB (Y+1) CHR$ (G4); CHR$ (GS) 
15082 RETURN 


Variables 
PASADAS Y número de tabulación 
G1,G2,G3,G4,G5, números de códigos de gráficos 
LOCALES ninguna 


DEVUELTAS — ninguna 


15090 Cadenas de formas gráficas 


Un desarrollo del método demostrado en 15080 es la reunión de un 
número de caracteres gráficos en una única tira, que puede entonces impri- 
mirse. Esta rutina reúne caracteres gráficos en tres tiras que se pueden 
imprimir separadamente o reunidas. Tratando la forma total como una 
única tira, la animación se hace más fácil y se mejora mucho la velocidad de 
impresión. 
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15090 G1$ = CHR$ (130) + CHR$ (132) + CHRS (146) CHR$ (11) 
15091 G2$ = CHR$ (133) + CHRS (166) 

15092 G3$ = CHRS$ (184) 

15093 PRINT TAB (Y) G1$ 

15094 PRINT TAB (Y+1) G2$ 

15095 PRINT TAB (Y) G35 

15096 RETURN 


al 
Variables 
PASADAS Y número de tabulación 
LOCALES G1S$, G2$, G3f$ tira de gráficos 


DEVUELTAS ninguna 


15100 Dibujar Gráficos 


Algunas máquinas tienen la posibilidad de dibujar y borrar gráficos 
(SET, RESET). La instrucción SET viene seguida por los números X e Y 
entre paréntesis que determinan la posición de un pequeño elemento rectan- 
gular de la pantalla llamada pixel. El resultado es iluminar dicho elemento 
rectangular con coordenadas X e Y. La instrucción RESET (X,Y) por el 
contrario, extinguirá la iluminación de dicho elemento. 


Otras máquinas tienen la instrucción POS (X, Y) que devolverá un 1 si el 
elemento está iluminado y 0 si no lo está (para detectar límites dibujados en 
la pantalla). SET y RESET se pueden usar también para lograr formas que 
no se pueden hacer convenientemente con los bloques gráficos estándar. 


El principal problema que se encuentra con el uso de SET y RESET es 
que estas instrucciones operan sobre sólo un elemento (pixel) a la vez, de 
modo que formar un dibujo o modelo grande es un proceso muy largo y 
tedioso. El método más fácil es usar la rutina conjuntamente con la instruc- 
ción READ ... DATA, introduciendo pares de coordenadas X e Y y utili- 
zando cada par con una instrucción SET o RESET. 
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15100 FOR N=1 TO K 
15101 READ X,Y 
15102 SET (X.Y) 


15103 NEXT N 
15104 RESTORE 
15105 RETURN 


Variables 
PASADAS K número de pixels 
X, Y pares de datos 
LOCALES N, contador 


DEVUELTAS — ninguna 


15110 Introducción de gráficos en la memoria 


El método gráfico más rápido es introducir el carácter del código 
gráfico directamente en la sección de memoria usada por la pantalla (sólo es 
posible si el ordenador tiene un mapa de memoria de la pantalla). La 
instrucción POKE viene seguida por una dirección numérica, una coma y el 
código numérico del gráfico. 


En el ejemplo se ilustra el uso de POKE para símbolos gráficos junto 
con una instrucción READ ... DATA en el que los datos (no indicados) 
consistirán en un conjunto de números de direcciones y números de códigos 
de gráficos en pares. 


Para símbolos gráficos más rápidos como los que se necesitan para 
animación, habrá que utilizar otros métodos con código de máquina. 


15110 FOR N = TO K 
15111 READ Gl, G2 
15112 POKE Gl, G2 


15113: NEXTON 
15114 RESTORE 
15115 RETURN 
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Variables 
PASADAS K, número de elementos o bloques (pixel) 
(G1,G2) pares de datos 
LOCALES N, contador 


DEVUELTAS ninguna 
15120 Ejes de diagramas 


Los caracteres gráficos pueden usarse en programas científicos o de 
negocios para dibujar ejes de gráficos y esta rutina está diseñada para dicho 
fin. 


La subrutina debe alimentarse con valores para X, los números de 
caracteres por línea y en Y el número de líneas por cuadro. Es muy útil dejar 
algún espacio, usando menos que el número máximo para estas cantidades y 
poniendo un TAB (5) o instrucción antes de las instrucciones PRINT. 
Obsérvese que los códigos de gráficos son los códigos del TRS 80 para barras 
horizontales y verticales. Se debe reemplazar estos números de código por 
los que sirvan para el propio ordenador. 


Si esta rutina se ejecuta sin que continúe por una sección de programa 
parte del dibujo o diagrama será cubierto por el letrero READY que aparece 
en la pantalla al final del programa. La subrutina se solicitará normalmente 
y luego se continúa por una sección de programa que imprime información 
en el diagrama o posiblemente permite al usuario introducir puntos del 
diagrama moviendo el cursor. 


En cualquier caso, los ejes no serán interrumpidos por el mensaje 
READY y el único problema es el de hacer que la próxima línea impresa 
aparezca en el lugar correcto. Como es costumbre los ordenadores equipa- 
dos con PRINTO son más fáciles de usar pero los mismos métodos que se 
han empleado antes, basados en instrucciones TAB y elevación del cursor, 
puede también usarse. 


FOR N=1TO X 
15121 REM X CARACTERES POR LINEA 

15122 PRINT CHR$ (140);: REM BARRA HORIZONTAL 
15123 NEXT N 

15124 FOR N=1TO Y 

15125 REM Y LINEAS POR PANTALLA 

15126 PRINT CHR$ (191) 

15127 REM BARRA VERTICAL 

15128 NEXT N 
RETURN 
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Variables 
PASADAS X, caracteres por línea 
Y, línea por pantalla 
LOCALES N, contador 


DEVUELTAS — ninguna 


15130 Encontrar el máximo en una lista 


Esto no es un programa de gráficos en el sentido de que produce una 
salida en la pantalla, sino una rutina muy útil para usar con las de dibujos de 
gráficos. 


Las escalas de un diagrama a menudo tienen que ajustarse de modo que 
el mayor elemento de la lista se adapte al diagrama. Esta rutina encuentra el 
máximo valor almacenado tomando el primer elemento como el máximo y 
luego comparándolo con todo el resto de los elementos, intercambiando 
cuando sea necesario de modo que la variable KM contenga el número 
máximo al final de la rutina. El número de elementos en el vector debe 
traspasarse como variable N. 


15130 KM = K(1) 
15131 FOR Z=2 TO N 
15132 IF KM<K (Z) THEN 15135 


15133 NEXT Z 
15134 RETURN 
15135 KM = K (Z) 
15136 GOTO 15133 


Variables 
PASADAS N, número de elementos en la lista 
K() vector de números 
LOCALES Z, contador 


DEVUELTAS KM, elemento de valor máximo 


15140 Impresión de escalas en diagramas 


Aquí se hace para un eje solamente, pero los principios son los mismos 
para el otro eje del diagrama. 
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El valor máximo para el vector que hay que expresar gráficamente KM 
obtenido de la subrutina previa sirve para dividir el eje X del diagrama en 
diez divisiones iguales marcando estos valores en los ejes. Se redondea para 
evitar el uso de fracciones. El número de caracteres por línea se debe 
traspasar a la subrutina como la variable X. Advertir que si hay que 
representar valores fraccionarios, se debería haber omitido el 
redondeamiento. 


15140 Y = INT (KM/10) + 1 
15141 FORZ=1TO 10 
15142 PRINT TAB (Z*X/10) INT (Y*Z); 


15143 NEXT Z 
15144 RETURN 
15145 REM X CARACTERES POR LINEA 


Variables 
PASADAS X, caracteres por línea 
K M elemento de mayor tamaño 
LOCALES Y ,X, contadores 


DEVUELTAS ninguna 
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Archivo de datos en casete 


El archivo de datos en casete no es una parte estandarizada del BASIC 
de modo que cada tipo de ordenador usa su propia versión de archivo de 
datos en casete. Algunas máquinas no tienen esta posibilidad por lo que no 
pueden usarse incluso para las aplicaciones más elementales en negocios o 
cálculos científicos en los que se manejan muchos datos. El problema de 
archivo de datos en casete ha sido que la mayor parte de los fabricantes lo 
han considerado útil; sin embargo, un usuario consciente utilizaría disque- 
tes, algo que el usuario no se tomaría la molestia de tener porque usaría 
discos. La razón por la que una persona que compre un ordenador de £ 300, 
invertiría otras £ 100 en un sistema de discos no ha sido dada nunca, y se han 
necesitado los esfuerzos de fabricantes especializados para demostrar que 
son posibles los sistemas de archivo de datos de un modo rápido y fiable en 
casetes. 


Quizás los fabricantes en el futuro (cuando Vd. lea esto) se habrán dado 
cuenta de las posibilidades de usar sistemas con casete para almacenamiento 
digital como el sistema minicasete. Philips que se usa en máquinas mayores. 


Dejando esto por el momento, el sistema de utilizar tonos de audio 
grabados para transmitir los dígitos O y 1 es común a todos los sistemas con 
casete, pero el único estandarizado es el conocido como Kansas City o 
CUTS. En cualquier caso, aun si dos ordenadores utilizan el mismo método 
para codificar bits individuales en cinta, no hay garantía de que usarán el 
mismo método de codificar los datos en estos byts. La tendencia hoy es la de 
suministrar sistemas de archivo de datos en casete con opciones de alta 
velocidad usando tasas de 1200-1800 baudios contra los 300 baudios del 
estándar CUTS. 
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Ya que no hay forma estándar de archivo de datos, es gratificante que 
un gran número de máquinas use instrucciones similares. Estos son a 
menudo modelados según las instrucciones usadas para archivo con discos, 
de modo que el usuario pueda pasar de un modo más o menos ordenado de 
archivos de casetes a archivos de discos cuando lo necesite. 


La excepción a este modelo es el TRS 80/Video Genie que utiliza un 
sistema de archivo de datos en casete más pobre cuando lo comparamos con 
otras máquinas. 


De las nuevas máquinas, el sistema de archivo de datos en casete del 
micro BBC y de su antecesor el ACORN ATOM es con mucho el mejor. 


Para muchos propósitos el sistema de archivo con casete del micro BBC 
sería tan útil al usuario como el sistema de archivo con discos de algunas 
máquinas que no voy a mencionar. 


El mejor tipo de archivo de casetes necesita que se abra un archivo 
(usando OPEN o CREATE) clasificando los datos listos para grabar y luego 
grabados en cinta utilizando una instrucción como PRINT+1; el archivo 
debe luego cerrarse. La lectura consiste en abrir un archivo para preparar el 
almacenamiento y asignación del nombre de la variable usando INPUTH1 
para leer la cinta, luego cerrando el archivo. Las operaciones OPEN y 
CLOSE se deben hacer en el sitio correcto y en el orden también correcto y 
un archivo se debería cerrar inmediatamente después de leer o escribir 
porque de no hacerlo así se pueden producir detenciones o convertir la cinta 
en indescifrable. Los microordenadores que no necesitan instrucciones 
OPEN o CLOSE son el TRS-80 y Video Genie. 


16000 Advertencias 


Los grabadores de casete, a diferencia de los equipos para discos, no 
están sometidos al control del ordenador, aunque algunos controlan el 
motor del grabador de la casete, parándolo y arrancándolo cuando se 
requiera. 


Por esto, uno puede enfrentarse con la utilización de una instrucción de 
grabación de datos con el grabador de la casete desconectado y este desastre 
se debe evitar imprimiendo un mensaje de aviso o atención y parando el 
ordenador. 


La subrutina imprime el correspondiente aviso de acuerdo con el valor 
de A$ (que debería ser GRABANDO o LEYENDO) que se transfiere a la 
subrutina. 
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La subrutina debería venir seguida por otra que requiera que se oprima 
una tecla antes de que se ejecute una instrucción de grabación para que así el 
usuario tenga tiempo para seleccionar la casete, encontrar el lugar adecuado 
y oprimir la tecla correcta en el grabador. Este sistema puede parecer tedioso 
comparado con la simplicidad de archivo con discos pero tiene la ventaja 
que es más difícil el cometer errores. Se necesita mucho más tiempo para 
sobre escribir una casete entera que un disco. 


CLS 

PRINT TAB (X) AS 

PRINT “PREPARE EL GRABADOR CON UNA CASETE” 
PRINT “POSICIONADA EN EL LUGAR CORRECTO” 

IF A$ = “GRABACION” THEN 16008 

PRINT “APRIETE LA TECLA PLAY DEL GRABADOR” 


PRINT “LUEGO TECLEE CUALQUIER LETRA EN EL 
ORDENADOR” 

RETURN 

PRINT “APRIETE LAS TECLAS RECORD Y PLAY DEL 
GRABADOR” 

GOTO 16006 


Variables 
PASADAS X, número de tabulación del mensaje 
AS, mensaje (GRABACION O LECTURA) 
LOCALES ninguna 


DEVUELTAS — ninguna 


16010 Conservar o almacenar un vector 


Esta rutina es la típica entre las que se usan para conservar datos en 
muchos ordenadores. 


Se debe haber abierto primero el archivo y se debe también haberlo 
definido. La transferencia a la cinta se puede hacer después de haber hecho el 
aviso para preparar el grabador con el bucle contenido en las instrucciones 
16012, 16013; después se cierra el archivo en 16014 y la rutina vuelve al 
programa que la solicitó. La variable K y el vector A$ deben suministrarse a 
la rutina. 
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La lectura sigue un procedimiento similar con el mismo tipo de bucle en 
conjunción con la instrucción PRINT 4 para leer los datos de la cinta. 
Advertir que algunas impresoras usan el signo de la libra en lugar del 
carácter sostenido (+) 


OPEN+10, “SALVAR”: REM ALGUNAS MAQUINAS 
EMPLEAN “CREATE 4 10 

FOR N= 1 TO K 

PRINT 4 10,AS (N) 


NEXT N 

CLOSE f 10 

RETURN 

REM EMPLEAR EL MISMO BUCLE PARA LEER 


Variables 
PASADAS K, número de elementos 
AS$() vector de elementos 
LOCALES N, contador 


DEVUELTAS ninguna 


16020 Archivo con el TRS/80 - Video Genie 


El sistema de este ordenador usa las instrucciones PRINT 4—1 e 
INPUT+*—_ y no tiene las OPEN y CLOSE. Es probablemente más fácil de 
usar para el usuario comparado con un sistema más sofisticado de archivo, 
porque la instrucción PRINT4—-1 viene seguida por una lista separada por 
comas de las variables cuyos valores hay que conservar. Con tal de que el 
número de bytes conservados por una instrucción PRINTF—-1 no exceda de 
248, el sistema es realmente muy simple, como se describe en la pareja de 
subrutinas para escribir y leer datos. 


Advertir que se han usado los mismos nombres de variables, aunque no 
sea necesario, pero el mismo orden de tipos de variables se debería usar 
siempre. 


16020 PRINT 4 —1, A,B,C, AS, B$ 
16021 RETURN 
16022 REM EMPLEAR LA MISMA ORDEN PARA LEER 


16023 INPUT 4—1, A,B,C, AS, BS 
16024 RETURN 
16025 REM EL TRS-80 EMPLEA ESTE METODO 
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Variables 
PASADAS A,B,C, números 
AS BS tiras 
LOCALES ninguna 


DEVUELTAS — ninguna 


16030 Agrupamiento de tiras para el TRS-80/Video Genie 


Los problemas con el archivo de datos del TRS/80 Video Genie surgen 
cuando se tienen que grabar vectores o matrices. Cada llamada a la rutina 
PRINT+—1 en un bucle hará que arranque el motor que gire a la velocidad 
normal e imprima 250 bytes de ceros seguidos por un byte de sincronización 
y posteriormente los datos. Esto se hace incluso si hay sólo un byte de datos 
por llamada. Es imposible sin escribir total o parcialmente un nuevo sistema 
operativo para casete mantener la cinta desplazándose y grabar todos los 
valores de un vector consecutivamente como se hace normalmente en el 
resto de las máquinas. Algunas modificaciones para lograr mayor velocidad 
(de hardware y software) permiten una mayor eficiencia en el archivo de 
datos, en conjunción con una mayor velocidad de carga y descarga a 
menudo mayor que la que se logra con otras máquinas (el equipo TC 8 para 
el TRS 80 es uno de ellos). 


Algunos usuarios han escrito también rutinas en lenguaje de máquina 
que reemplazan la larga parte delantera por otra más corta cuando se está 
grabando un vector numérico. 


Esta rutina es mi propia solución al problema. Los datos se ponen en la 
forma de vector de tiras y luego concatenadas en tiras largas cada una de las 
cuales se graba; para leerlas se separan en un vector de nuevo. 


La mayor parte de las rutinas que comprimen y descomprimen son 
lentas, lo que tiende a disminuir la ventaja del método. Este método es más 
rápido que la mayoría. El principio se basa en medir la longitud de cada tira, 
convirtiendo este número a una tira, rellenándola y seccionándola hasta 
obtener una longitud fija (línea 16034) y después concatenando la longitud 
de la tira y la tira misma en una tira más larga que consistirá en un conjunto 
de números y letras. 


Los números son las longitudes de las tiras siguientes que es la señal 
para el procedimiento de separación. 


Si la longitud de la tira comprimida alcanza un valor que es demasiado 
grande para que el sistema operativo la maneje (MAX) entonces se graba, se 
borra y se continúa con la compresión. Antes de que se graben las tiras, sin 
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embargo, el número total de tiras en el vector se convierte en tira y se graba 
separadamente para permitir después una separación eficiente. Esta rutina 
es mucho más rápida para distribuciones numéricas y tiras que el método 
estándar y hace que el archivo de datos en estas máquinas sea más efectivo 
sin tener que recurrir a rutinas con código de máquina. 


AS =STR$(K) 

GOSUB 16043 

A$=“> 

FOR N= 1 TO K 

C$ = RIGHTS (“” + STR$ (LEN (BS(N))),2) 
AS = AS + CS + BS (N) 

IF LEN (A$) > MAX THEN 16040 

NEXT N 


GOSUB 16043 
RETURN 
GOSUB 16043 
A5$=“” 

GOTO 16037 
PRINT 4—1,AS$ 
RETURN 


Variables 
PASADAS K, número de elementos en el vector 
MAX longitud máxima de la tira 
B$ () vector de tiras 
LOCALES N, contador 


CS código de longitud de la tira 
DEVUELTAS AS tira comprimida para grabación 


16040 Descompresión de tiras para formar un vector 


Esta es la rutina de la descompresión que se corresponde con la rutina 
de agrupamiento 16030. Empieza leyendo la tira cuyo valor da el número 
total de elementos K. El número de cuenta N se pone a 1 y la primera tira 
agrupada se lee en la línea 16043. El número de posición J se pone a 1. 


En la línea 16045 se determina un número que es la longitud del primer 
elemento o tira de la distribución siendo el valor de los dos primeros 
caracteres de la tira. Este número se usa luego en 16046 para obtener la tira y 
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asignarla en la distribución. Los números de cuenta se examinan para 
comprobar que no se ha alcanzado el final de la tira y se aumentan en 16048 y 
16049 para poder leer y extraer la siguiente tira del vector de la tira agrupada 
retornando a 16045. 


Cuando se llega al final de la tira comprimida, se lee otra tira de la cinta 
y se continúa el proceso hasta que todos los elementos especificados por la 
variable K se han asignado al vector sobre el que vuelve la subrutina. Esta 
descompresión es mucho más rápida que la que se describió anteriormente 
con la descompresión carácter por carácter utilizando el carácter ASCH 128 
como un separador. 


GOSUB 16054 

K= VAL (AS) 

N=1 

GOSUB 16054 

il 

X = VAL (MIDS(A$,J,2)) 
B$ (N) = MIDS (AS$,J+2,X) 
IF J+X+2>= LEN (A$) THEN 16051 
N=N+1 

J=J+X+2 

GOTO 16045 

N=N+1 

IF N< K THEN 16043 
RETURN 

INPUT 4—1,AS 

RETURN 


Variables 
PASADAS (indirectamente) A$ tira grabada 
LOCALES K,N,J,X, contadores 


DEVUELTAS K, número de elementos 
B5() vector de tiras 


16050 Validación 


Es muy útil leer datos de la cinta después de su escritura mientras que los 
datos originales están aún almacenados, de modo que la lectura de datos es 
doblemente comprobada. Esta subrutina compara un vector grabado y leído 
posteriormente B$ con una Af$ que se retiene en la memoria e informa sobre 
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cualquier elemento que no concuerde. Tiene que utilizarse cuidadosamente 
porque cuando se graba un número y se lee después, volverá en algunas 
máquinas precedido de un espacio en blanco que pueda originar un informe 
de error. 


16050 FOR N=1 TO K 
16051 IF AS (N) <> BS (N) THEN 16054 
16052 NEXT N 


16053 RETURN 

16054 PRINT “ITEM”; N; “ES ERRONEO——” 

16055 PRINT A$ (N) “SE GRABO” BS$(N) “SE LEYO” 
16056 GOTO 16052 


Variables 


PASADAS K, número de elementos 
AS$( vector de elementos en memoria 
BS() vector de elementos de la cinta 
LOCALES N, contador 
DEVUELTAS ninguna 


16060 Copia de datos 


Los datos almacenados en una casete no pueden cambiarse fácilmente 
excepto, leyéndolos, cambiándolos y escribiéndolos de nuevo. Además 
hacer una cinta con copia de datos también necesita una rutina para leer y 
escribir. Esta subrutina ofrece una limitada habilidad para leer y escribir. 
Está preparada para el TRS-80 Video Genie pero podría usarse con las 
instrucciones OPEN y CLOSE con otros sistemas de archivos de datos. El 
principio es simplemente leer un conjunto de datos, grabando en otra cinta y 
luego borrando las variables. A menos que se use un sistema de dos casetes, 
el proceso será lento y se debe tener cuidado para que la lista de variables que 
se lee en 16061 corresponda a la secuencia que es realmente grabada en la 
cinta. 


16060 GOSUB 16068 
16061 INPUT 4—1,A$,B,C 
16062 GOSUB 16070 
16063 PRINT 4+—1,AS$,B,C 
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16064 A$S= “>” 

16065 B=0 

16066 C=0 

16067 RETURN 

16068 REM AVISO DE RELECTURA 
16069 RETURN 

16070 REM AVISO DE ESCRITURA 
16071 RETURN 


Variables 
PASADAS ninguna (datos grabados) 
LOCALES AS$,B,C, elementos de datos 


DEVUELTAS ninguna (datos grabados) 
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TRS-80 
VIDEO 
GENIE 


Retroceso y 
borrado 


CH, EFE 


C/R, L/F 
Cursor 
conectado 
Cursor 
desconectado 


Códigos que no se imprimen 


ACORN 
RML 330-Z ATOM APPLE Il BBC MICRO 


Resumen de 
salida 


Retroceso 


Tabulación 
L/F 

Línea arriba 
Borrar, cursor 
a rincón izdo. 
inferior 

C/R, L/F 
C/R 


Supresión de 
salida 


Empezar la 
impresora 
Para la 
impresora 


Salida a 
pantalla 
Beep 
(zumbido) 
Retroceso 


Adelanto 

LE 

Línea arriba 
Borrar, cursor 
a punto de 
partida 

C/R 

Formar página 
en la pantalla 
Páginas 
desconectadas 


Restaurar 


Paso 


Beep 
(zumbido) 
Retroceso 


L/F 


C/R 


Salida para 
impresora sola- 
mente, no para 
pantalla 
Conectar la 
impresora 
Desconectar la 
impresora 
Separar el cursor 
del texto, del 
cursor de los 
gráficos 

Unir ambos 
cursores 
Conectar el VDU 


Beep 
(zumbido) 
Retroceso 


Adelanto 
L/F 

Línea arriba 
Borrar, cursor 
a punto de 
partida 

C/R 

Páginas 
conectadas 
Páginas 
desconectadas 
Borrar el área 
de gráficos 


32 caracteres 
por línea en 
TRS 80 
Retroceso del 
cursor 


Adelanto del 
cursor 
Avance de 
línea hacia 
abajo 
Desplaza- 
miento de línea 
hacia arriba 
Cursor al 
punto inicial 
Cursor al 
principio de 
línea 

Borrado hasta 
el fin del 

del cuadro 
Borrado hasta 
fin del cuadro 
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Códigos que no se imprimen (continuación) 


ACORN 


RML 330-Z ATOM 


Borrar cuenta 
de páginas 
Establecer la 
cuenta de 
páginas 


Sin salida a 
pantalla 


Titilar 


Modificación 
del cursor 
Destellos 
desconectados 


Cancelar 
línea 


Cursor a la 
derecha 


Borrar hasta el 
fin de línea 


Cursor al 

punto de 

origen 

Borrado hasta | Cursor al 

el fin de línea | punto de 
origen 

Borrar la 

pantalla cursor 

al punto de 

origen 

(N. B. CHR$ 

(255) = retro- 

ceso y borrado 


BBC MICRO 


Definir color 
del texto 
Definir color y 
gráficos 


Definir color 
de la lógica 


Control del 
desplaza- 
miento 
Restaurar el color 
del valor defec- 
tuoso 
Desconexión de 
VDU 


Cursor 
hacia 
adelante 
Modo para selec- 
cionar la pantalla 
Reprogramar la 
visualización de 
caracteres 

Definir ventana de 
gráficos, Instruc- 
ción para dibujar 


Borrar 
línea 


Restaurar tamaño 
de la ventana por 
defecto 

Sin acción 


Definir ventana de 
texto 

Definir origen 

de gráficos 


Cursor del texto a 
lugar de origen 


Mover cursor del 
texto a nueva 
posición 

(N. B. CHR$ (127) 


= retroceso y 
borrado 
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SUBRUTINAS EN CODIGO MAQUINA 


Una ventaja de escribir programas en BASIC en la forma de un 
pequeño núcleo que contine un menú u otros procedimientos de acceder a 
subrutinas, es que todas las acciones importantes del programa son entonces 
realizadas por las subrutinas. 


Esto hace posible alterar un programa muy fácilmente cambiando la 
subrutina relevante y si la numeración de las subrutinas se han elegido bien, 
es posible hacerlo sin tener que volver a numerar todo el programa. 


Algunos tipos de programas requerirán subrutinas en código de 
máquina para ejecutar acciones que o bien no están disponibles en BASIC o 
son muy lentas cuando se usa este lenguaje. Esto puede evitarse en algunas 
máquinas si se dispone de un compilador para transformar el BASIC en una 
mezcla de BASIC y código de máquina. Los usuarios del TRS 80 tienen la 
opción de usar el grupo de compiladores Southern Software's ACCEL que 
acelerará notablemente la ejecución de un gran número de instrucciones en 
BASIC. Esto por supuesto acelerará todas las acciones, de modo que los 
bucles FOR ... NEXT que se han utilizado para temporización, tendrán que 
cambiarse antes de que la versión final del programa se compile se pueden 
necesitar varias ejecuciones de prueba para que quede bien. 


En la mayor parte de los ordenadores sin embargo, la única opción de 
que se dispone para lograr que una subrutina sea más rápida, suponiendo 
que el programa en BASIC se ha hecho tan eficiente como sea posible y que 
se han hecho todos los esfuerzos necesarios para eliminar procedimientos 
que desperdician el tiempo, como recoger la información inútil, es acudir a 
escribir la subrutina en código de máquina. 
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Escribir códigos de máquina de una manera eficiente constituye un 
logro en sí mismo, pero incluso la rutina más ineficiente en código de 
máquina es probablemente mucho más rápida que en BASIC para la mayor 
parte de los propósitos. 


La ventaja de una mayor velocidad en máquinas tales como SPEC- 
TRUM puede ser asombrosa; por otro lado, el uso del BASIC en el 
microordenador BBC es tan rápido que utilizar el código de máquina no vale 
realmente la pena, si de lo que se trata únicamente es de obtener mayor 
velocidad. 


En este apéndice, sin embargo, nos ocuparemos de como subrutinas en 
código de máquina pueden usarse con programas en BASIC, más bien que 
de la mecánica de escribir tales rutinas de las que tratan textos más 
especializados. 


Para empezar, los bytes en código de máquina deben colocarse en la 
memoria donde no puedan corromperse o estropearse por la acción normal 
del ordenador. El ordenador hace un uso considerable de la memoria 
durante la ejecución de un programa para almacenar los valores de varia- 
bles, el texto de las tiras y para el almacenamiento temporal de una cantidad 
mientras se usa. 


Normalmente, el ordenador preservará sólo la parte de la memoria en la 
que está almacenado el programa en BASIC y usará el resto de la memoria 
cuando se necesite. En general, las direcciones de memoria justamente 
encima de las usadas, y las que están cerca de la parte superior se utilizan de 
esta manera. Algunos ordenadores permiten que un área en la parte superior 
de la memoria se reserve para programas en código de máquina usando una 
instrucción en BASIC. En el SPECTRUM, por ejemplo, la instrucción 
CLEAR seguida por un número de dirección de memoria (típicamente 
32500) reservará un espacio en la memoria sobre este número. Este espacio 
se extiende a la dirección en la que se almacenan los caracteres definidos 
gráficamente por el usuario (ver el manual SPECTRUM para detalles). El 
TRS 80 puede también reservar una parte de su gran número de direcciones 
de memoria para rutinas en código de máquina y el método convencional de 
hacer esto es imprimir el número de memoria requerido al conectar cuando 
el mensaje MEM SIZE? o (MEMOR Y SIZE? para los modelos anteriores) 
aparece en pantalla. Como antes, esto reserva direcciones de memoria de 
este valor y más altos para las rutinas en código de máquina. Es a menudo 
poco conveniente tener que volver al procedimiento de conectar y es posible 
introducir (con POKE) el valor de la dirección entre dos direcciones en la 
memoria, ejecutar una instrucción CLEAR en BASIC y así establecer el 
tamaño de la memoria automáticamente dentro de un programa cuando éste 
empieza a ser ejecutado. 
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Esto no debe hacerse, excepto como la primera instrucción en un 
programa; de otro modo el programa será inservible porque el ordenador 
habrá ya hecho algún uso de la memoria que ha sido ahora reservada. 


Un método mucho menos documentado de asignar espacio para subru- 
tinas en código de máquina es cambiar el punto de arranque del BASIC. La 
dirección de arranque para el BASIC se mantiene generalmente en dos bytes 
de memoria reservada y alterando estos dos bytes, la dirección de arranque 
puede llevarse a una dirección más alta de memoria. Esto permite que se 
cargue un programa en BASIC desde la cinta a un conjunto más alto que el 
normal de direcciones, dejando los números de direcciones debajo del 
arranque en BASIC, libres para el código de máquina ya que la máquina no 
usará estas direcciones. 


Este método puede adaptarse para prácticamente cualquier tipo de 
ordenadores y vale la pena investigarlo porque el código de máquina puede 
cargarse antes o después del programa en BASIC, con tal que la memoria 
haya sido asignada correctamente. Un método muy elegante es cargar el 
código de máquina, estableciendo la auto ejecución, de modo que una parte 
del código de máquina reasignará el espacio para BASIC, y entonces empe- 
zará la carga del programa en BASIC. El código BASIC entonces se escribe 
sobre esta sección del código de máquina que no se necesita ya, pero deja la 
otra sección que contiene la subrutina. 


Este método también tiene la ventaja de que es muy difícil copiar el 
programa; una alternativa es cargar y ejecutar un programa en BASIC que 
reasigna la memoria, carga el programa principal en BASIC y luego carga el 
código de máquina escribiendo sobre la sección de carga del BASIC. 


Ejemplos de esta técnica se encuentran en varias cintas comercialmente 
disponibles. 


Otro método de proteger el código de máquina para que no sea afectado 
por el sistema operativo del ordenador es colocar los bytes del código 
máquina en instrucciones REM o en tiras o tablas. 


El primer método es el tradicionalmente empleado para colocar el 
código de máquina en la serie de ZX80/ZX81 escribiendo las REM seguidas 
por tantos espacios como bytes de código máquina haya que poner. 

Al hacer esta instrucción REM la primera en el programa se fija su 
dirección de memoria y el código máquina puede colocarse en su lugar. Un 
método similar puede utilizarse con el SPECTRUM con la ventaja que las 
instrucciones READ ... DATA pueden usarse para llenar los espacios con 
bytes. El uso de tiras o de tablas de números es un método favorecido por los 
programadores TRS-80. La dirección de arranque de una variable almace- 


96 


APENDICE B 


nada en la memoria puede encontrarse utlizando la utilísima instrucción 
VARPTR de esta máquina. 


La desventaja de usar tiras para almacenamiento es que la dirección de 
una tira en la memoria no está fijada, de modo que la instrucción VARPTR 
se debe usar para encontrar la posición de la tira antes de que se utilice. Es 
preferible usar un vector numérico para contener los bytes de un programa 
en código máquina. Debe haber por supuesto algún método de introducir 
los bytes, y esto se hace generalmente bajo la forma de instrucciones del tipo 
READ ... DATA. 


Cuando el código de máquina se localiza en la memoria reservada, 
puede cargarse desde una grabación separada, que puede estar en la misma 
cinta que el programa BASIC o puede estar contenido dentro del programa 
BASIC como se indica con instrucciones DATA, o en el caso de la serie ZX 
con instrucciones REM que pueden grabarse con el resto del BASIC. 


Llamada a la subrutina en código máquina 


Los métodos que se usan para solicitar una subrutina en código 
máquina varían considerablemente de un ordenador a otro, incluso cuando 
la forma de la instrucción parece que es idéntica. La palabra más común 
para llamar la subrutina es USR seguida por un número pero la sintaxis no 
es uniforme dependiendo de lo que represente el número. Algunas máquinas 
especialmente SPECTRUM, interpretan el número como una dirección, de 
modo que una instrucción tal como PRINT USR 32500 hará que se ejecute 
la rutina en código de máquina que empieza en la dirección 32500. USR 
puede colocarse junto con PRINT asignado como LET x= USR 32500 o 
usar la variable en una instrucción RANDOMIZE tal como RANDOMIZE 
32500. La ventaja de usar este método de solicitar o llamar a una subrutina es 
que así resulta muy fácil probar las rutinas, incluso rutinas en la ROM del 
ordenador, aplicando las rutinas USR. El método PRINT USR dará como 
resultado la impresión de un número en la pantalla, el utilizar LET x = USR 
(dirección) asignará un número a la variable x; solamente PAND USR 
(dirección) no producirá ningún efecto en el programa principal. SPEC- 
TRUM organiza el sistema USR de manera que el número presente en el par 
de registros BC del micro Z-80A será devuelto por la instrucción USR y éste 
es el número que aparecerá si se usa el método PRINT USR, o asignado a x 
en LET x = USR (dirección). Si los registros BC no se cambian debido a la 
subrutina en código de máquina, entonces el número que se devuelve es 
simplemente la dirección que seguía a USR. 
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APENDICE B 


Aunque este esquema es muy simple, tiene sin embargo la desventaja 
que no transfiere un valor a la subrutina. Esto puede ser compensado 
escribiendo en la memoria el valor que tiene que transferirse y gestionando la 
subrutina para que use esta parte de la memoria. Una alternativa es escribir 
una porción de la subrutina de modo que lea el valor de una o más variables a 
las que se han asignado valores por el programa BASIC. Esto es muy 
parecido al método usado en la máquina BBC. 


Otra variación de USR encontrada específicamente en MICROSOFT 
BASIC sigue a la llamada de URS con un número entre paréntesis. Este 
número es el que se transfiere a la subrutina en código de máquina para que 
se ponga en los registros del microprocesador, y la dirección a la que la 
rutina URS dirige al ordenador tiene que escribirse en la memoria, en vez de 
formar parte de la instrucción. Una llamada de esta clase devolverá también 
un valor derivado de los registros de los microprocesadores. 


La mejor provisión para subrutinas en código de máquina, es como 
debiera esperarse la de la máquina BBC. Ambas, direcciones y valores 
pueden especificarse, los valores se colocan como “variables enteras residen- 
tes” y la dirección se especifica en la instrucción CALL. La simplicidad de 
mezclar el código de máquina con el BASIC hace que esta máquina destaque 
para todo tipo de propósitos. 
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OTROS LIBROS DE INFORMATICA DE 
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Diccionarios 


HART — Diccionario del Basic. (2? Edic.) 1985. 


NANIA.- Diccionario de Informática. Inglés. Francés. Español. Más de 11000 términos. 
1985. Rústica. 


OLIVETTI.— Diccionario de Informática. Inglés-Español (7? Edic.) 1986. 


Hardware (Equipo físico) 


ANGULO.- Electrónica digital moderna. (62 Edic.) 1985. 
ANGULO.-— Memorias de burbujas magnéticas. Tecnología y sistemas de aplicación. 1982. 


ANGULO.— Microprocesadores. Arquitectura, programación y desarrollo de sistemas (32 
Edic.) 1984. 


ANGULO.— Microprocesadores. Curso sobre aplicaciones en sistemas industriales. (42 
Edic.) 1985. 


ANGULO.-— Microprocesadores. Diseño práctico de sistemas. (32 Edic.) 1986. 


ANGULO.-— Microprocesadores. Fundamentos, diseño y aplicaciones en la industria y en 
los microcomputadores. (42 Edic.) 1985. 


ANGULO.— Microprocesadores de 16 Bits. El 68000 y el 8086/8088. (22 Edic.) 1985 
ANGULO.- Prácticas de microelectrónica y microinformática. (2? Edic.) 1985. 
ASPINALL.-— El microprocesador y sus aplicaciones. 1984. 

GARLAND.- Diseño de sistemas microprocesadores (2? Edic.) 1984. 

HALSALL.- Fundamentos de microprocesadores. 1984. 

LEPAPE.-— Programación del Z80 con ensamblador. 1985. 

ROBIN.— Interconexión de microprocesadores. (2? Edic.) 1985. 

RONY .— El microprocesador 8080 y sus interfases. 1984. 


Lenguajes 


BELLIDO Y SANCHEZ.- Basic para estudiantes. 1985 
BELLIDO Y SANCHEZ. - Basic para maestros. (2? Edic.) 1985 


BELLIDO, SANCHEZ Y RODRIGUEZ.-— Casete con los programas de Basic para Maes- 
tros. 1985. 


BURKE.-— Enseñanza asistida por ordenador. 1986. 

CUÑAT.- Pascal para estudiantes. 1986. 

CHECROUN.- Basic. Programación de microordenadores. (5? Edic.) 1985. 
DELANOY — Ficheros en Basic. (32 Edic.) 1986. 


GALAN PASCUAL .-— Programación con el lenguaje Cobol. (52 Edic.) 1986. 
GARCIA MERAYO.- Programación en Fortran 77. 1986. 

LARRECHE.- Basic. Introducción a la programación. (5% Edic.) 1985. 
MARSHALL.- Lenguajes de programación para Micros. 1985. 
MONTEIL.- Primeros pasos en Logo. (2? Edic.) 1985. 

OAKEY.-— Lenguaje Forth para micros. 1985. 

QUANEAUX.-— Tratamiento de textos con Basic. 1985. 

RAMON.-— 44 superprogramas en Basic. 1985. 

ROSS!.— Basic. Curso acelerado. (5* Edic.) 1985. 

SANCHIS Y MORALES.- Programación con el lenguaje Pascal. (58 Edic.) 1985. 
WATT Y MANGADA.- Basic para niños (7? Edic.) 1986. 

WATT Y MANGADA.- Basic avanzado para niños. (382 Edic.) 1985. 


Aplicaciones e informática profesional 


ABRAMSON.-— Teoría de la información y codificación. (5 Edic.) 1981. 
ANGULO.- Guía fácil inteligencia artificial. 1986. 

BUITELAAR.- Informática y medicina. 1986. 

COHEN.- Estructura lógica y diseño de programas. 1986. 

DAX.-— CP/M. Guía de utilización. MP/M, CP/M 86, Wordstar, Basic. 1986. 
FLORES.- Estructuración y proceso de datos. (5? Edic.) 1985. 
GAUTHIER.- Diseño de programas para sistemas. (52 Edic.) 1985. 
HARTMAN.— Manual de los sistemas de información. T.1. (72 Edic.) 1985. 
HARTMAN.— Manual de los sistemas de información. T.2. (7* Edic.) 1985. 
LANE.— Telemática y comunicaciones en la empresa, 1986. 

LEWIS.— Estructuras de datos. Programación y aplicaciones. 1985. 
LUCAS.- Sistemas de información. Análisis. Diseño. Puesta a punto. 1984. 
POPKIN.— Introducción al proceso de datos. 1986. 


RODRIGUEZ.- Protección de la información. Diseño de criptosistemas informáticos. 
1986. 


SANCHIS.— Teoría y construcción de compiladores. 1986. 
SCHMIDT.— Introducción a los ordenadores y al proceso de datos. (5% Edic.) 1985. 


GUIA FACIL DE SUBRUTINAS UTILES EN BASIC 


La mayor parte de los programas para computadores a pesar 
de que tengan claras diferencias, usan solamente un grupo 
limitado de acciones sobre los datos. Si éstas acciones se pueden 
ejecutar con rutinas estándar (subrutinas) entonces se puede 
ahorrar mucho trabajo a la hora de programar. 


GUIA FACIL DESUBRUTINAS UTILES EN BASIC, contiene 
listados, notas aclaratorias y listas de variables para muchas 
subrutinas, entre las que se incluyen, intermitencia del título, 
impresión en columnas, visualización gráfica enmarcada, título 
desplazable, subrayado, clasificación, etc. 


Aunque la mayor ía de las subrutinas sirven para casi todas 

las máquinas, o se dan las instrucciones necesarias para su 
adaptación a la máquina del lector, se han incluido unos 
cuantos ejemplos de rutinas que pretenden superar limitaciones 
o aprovecharse de caracter ísticas de ciertas máquinas. 


Entre ellas figuran rutinas para ayudar al archivo en casete en 
el TRS-80/Video Genie y tablas para mostrar las versiones de 
las Órdenes de seccionamiento de cadenas usando MICROSOFT 
para los Micros SPECTRUM, ZX81 y ACORN ATOM. 


Todas las subrutinas tienen comentarios con respecto a las 
variables globales y locales para que puedan adoptarse como 
Procedimientos para el micro-computador BBC. 
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